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Prólogo 


Las primeras horas con su ZX Spectrum pueden producirle atur- 
dimiento. Después de haber ejecutado los programas del manual ofre- 
cidos como muestra, es posible que piense: “Si, ¿pero ahora qué?”. 
Este libro pretende responder a la pregunta. Le llevará de la mano, pro- 
gramando el Spectrum desde principios elementales hasta complicadas 
técnicas de programación. 

Y mientras vaya ejecutando programas, destruyendo alienígenos y 
asteroides por todas partes, descubrirá que está aprendiendo a pro- 
gramar a la vez que adquiere conocimientos sobre los ordenadores en 
general sin ningún esfuerzo. 

Este libro intenta ser una herramienta para tenerla a su lado cuando 
se siente frente al ordenador. Su valor quedará notablemente dismi- 
nuido si solamente trata de leer los programas. Sería mejor que ejecu- 
tase cada uno de ellos a medida que va llegando a ellos sin “dejar vivo 
a ningún alieniígeno”. De esta forma logrará el máximo rendimiento 
del libro y se habrá convertido en un “genio” de la programación antes 
de saber dónde se encuentra. 

Es el momento de empezar. Conecte su Spectrum y el televisor, 
y comencemos. 


Tim HARTNELL, Londres 
DILWYN JONES, Bangor, Gwynedd 


La utilización del teclado 


Aunque, a primera vista, el teclado del Spectrum pueda parecerle 
complicado, no es muy difícil dominarlo siempre que proceda cuida- 
dosamente en los primeros pasos. 

Las dos teclas más importantes son las de cambio, '*CAPS SHIFT” 
(esquina inferior izquierda) y “SYMBOL SHIFT” (la segunda de la de- 
recha de la última hilera). Búsquelas ahora. Los colores de estas teclas 
indican una de sus aplicaciones. Conecte su Spectrum, mantenga 
presionada la '*CAPS SHIFT” y pulse cualquiera de las teclas con letras 
del alfabeto. Verá que aparece la mayúscula. “CAPS SHIFT” tam- 
bién reproduce las palabras en blanco encima de las teclas del 1 al 4. 
Mantenga presionada “CAPS SHIFT” y pulse la tecla 2. Ahora 
accione cualquiera de las letras y verá cómo se presentan en la ver- 
sión mayúscula. El uso de '“TRUE VIDEO” e “INVERSE VIDEO” se 
discutirá en la parte relativa a gráficos. ) 

Dejando la tecla blanca '*SHIFT”, veamos ahora la roja “SYMBOL 
SHIFT”. Manténgala apretada y presione cualquier tecla (excepto 
ENTER, BREAK SPACE o CAPS SHIFT). Observará que se presentan 
los pequeños símbolos rojos de la tecla (como la flecha de la tecla H, 
apuntando hacia arriba). 

A continuación pulse cualquier tecla alfabética sin mantener pre- 
sionada ninguna de las '“*“SHIFTS”. Verá que sale la palabra blanca 
(IF, NEXT, DIM, etc.). Estas son c/aves (''Keywords'') que constituyen 
las primeras palabras de una línea de programa y de las que tratare- 
mos próximamente. 

Se logran las palabras en verde, que hay encima de las teclas, pre- 
sionando ambas “SHIFT” simultáneamente, dejando la pulsación y 
accionando la tecla cuya leyenda se desea. Por ejemplo, mantenga 
apretadas ambas ““SHIFTS”, suéltelas y pulse la D. Aparecerá la pa- 
labra “DATA” (lo que se indica encima de la tecla). 

Las palabras rojas debajo de cada tecla se obtienen presionando 
simultáneamente ambos “*SHIFTS”, soltando el blanco y conservando 
la presión sobre el rojo mientras se pulsa la tecla deseada. Se logrará 
la palabra “BRIGHT” pulsando así la tecla B, “ATTR” con la L y 
“VERIFY” con la R. Lo dicho vale para todo excepto para EDIT, 
ENTER, GRAPHICS y DELETE. 
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EDIT. Se utiliza para modificar una línea del programa. Poniendo 
el cursor en tal línea (el signo '“mayor que” > ) y presionando la 
tecla “*1/EDIT”, mientras se mantiene apretada la “CAPS SHIFT” 
se llevará la línea que se va a “'editar'* al fondo de la pantalla. Las te- 
clas 5 y 8 le llevarán a lo largo de la línea en la dirección de la punta 
de flecha que se muestra en estas teclas. 


ENTER. Se presiona esta tecla después de escribir una línea del 
programa en el fondo de la pantalla para hacer que entre en la parte 
principal del programa, en la parte superior de aquélla. También se 
utiliza después de una palabra como “RUN” para hacer que el orde- 
nador ejecute la instrucción. 


GRAPHICS. Si se mantiene apretada “CAPS SHIFT” y se pulsa 
la tecla 9, se verá cómo la letra ““cursor”” de la pantalla se convierte 
en una G. En ese momento, accione cualquiera de las teclas de nú- 
meros y vea lo que aparece en la pantalla. Mantenga apretada la 
“CAPS SHIFT” y pulse cualquiera de aquéllas: verá cómo se repro- 
duce el gráfico **opuesto”' del que teníamos sin pulsar '*CAPS SHIFT”. 
La segunda utilidad de la modalidad “GRAPHICS”, para las teclas 
a definir por el usuario, se tratará más adelante. 


DELETE. Esta es una tecla de “borrar”. Apriete y mantenga la 
“CAPS SHIFT”, presione la tecla O y se borrará, elemento por elemen- 
to, la línea en que está trabajando. Puede levantar el dedo de la tecla 
“CAPS SHIFT” cuando la acción de borrar es repetitiva y con sólo 
“DELETE” presionada continuará la acción de borrado. 


No se preocupe si esta descripción, que se ha hecho lo más sen- 
cilla y clara que hemos podido, no le descubre inmediatamente todos 
los misterios del teclado. Utilizando su Spectrum y hallando cada cosa 
a medida que se necesite, llegará indudablemente al punto en que lo 
utilice perfectamente. 


La instrucción PRINT 


PRINT es probablemente la instrucción más utilizada en el len- 
guaje BASIC. Permite al ordenador comunicarse con usted. Escriba 
la línea siguiente en su Spectrum y después pulse la tecla ENTER: 


PRINT5 
10 


Observará que el ordenador obedientemente presenta el número 5. 
Puede utilizar la instrucción PRINT para que el ordenador calcule. Es- 
criba lo siguiente y a continuación pulse ENTER: 


PRINT 5-3 


Al pulsar ENTER observará el resultado correcto. Esta modalidad 
de cálculo directo puede resolver problemas tan complejos como 
desee. Pruebe lo siguiente, recordando presionar ENTER después 
para que el ordenador actúe sobre lo expresado: 


PRINT SOR (8 + 1) 


Con ello se pide al ordenador que calcule la raíz cuadrada (esto es 
lo que significa SQR) de la suma de los números encerrados entre 
paréntesis, es decir, la raíz cuadrada de nueve. Si el ordenador fun- 
ciona correctamente conseguirá, por supuesto, el valor tres. 

Por consiguiente, puede ver que PRINT actúa en forma directa 
para presentar números y resultados del cálculo. También puede pre- 
sentar palabras. Accione la tecla de fijación de mayúsculas (CAPS 
LOCK) mientras se mantiene pulsada la CAPS SHIFT y, al propio tiem- 
po, pulse la tecla 2. Las letras aparecerán todas mayúsculas. Pruebe 
lo siguiente y después pulse ENTER: 


PRINT HOLA AMIGOS 


En lugar de ofrecernos alegremente el mensaje “HOLA AMIGOS” 
el ordenador nos viene con lo que se llama “mensaje de error””. En este 
caso, este mensaje dice “2 variable not found” (''no encuentra la 
variable”*). Si desea que se escriban palabras han de ponerse entre 
comillas. Instruya y ejecute (es decir, pulse ENTER después de escri- 
bir) lo siguiente: 


PRINT “HOLA AMIGOS” 


Observará que el mensaje aparece escrito en la parte superior de 
la pantalla. 

Recapitulemos rápidamente. Utilizando simplemente como una 
instrucción, PRINT 2 + 3 le dirá al ordenador que presente el resul- 
tado de la suma. Si la instrucción es PRINT “PALABRAS” haremos 
que en la pantalla aparezca todo lo escrito entre las comillas. 

Los ordenadores utilizan programas y ya ha llegado el momento 
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de escribir nuestro primer programa sencillo. Entre y ejecute el que 
sigue. Cuando lo haga, para lo que pulsará el enunciado RUN (te- 
cla R) y ENTER, verá algo similar a lo que aparece debajo del listado 
del programa. 


10 REM PROGRAMA uno 
a PRINT "ESTO ES UMA DEMOSTRA 


INT 2 
50 PRINT “FIN” 
ds ES UNA DEMOSTRACION 
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FIN 


Mientras tenemos este programa en el ordenador, aprendamos 
algo más sobre programación. Entremos la palabra LIST (que se hace 
apretando la tecla K) y después presionemos ENTER. Observará que 
el listado del programa vuelve a aparecer. Advierta que cada línea 
empieza con un número. La primera, numerada 10 en este caso, se 
inicia con la palabra REM, que en el lenguaje del ordenador significa 
“Nota” y se utiliza en un programa cuando se desea explicar lo que 
hay en él o lo que es (como en este caso), de forma que, cuando pos- 
teriormente se vuelva a este programa, se sepa de qué trata. El orde- 
nador ignora las instrucciones REM. 

Una instrucción REM se compone de un número de línea, después 
la palabra REM y, por último, algún texto. El mensaje que sigue a la 
palabra REM puede componerse de cualquier forma que le parezca 
—letras, números, signos de puntuación, gráficos o espacios— aun- 
que es mejor que sea lo más breve y claro posible. Si bien lo que se 
escribe después de REM es ignorado por el ordenador al ejecutar el 
programa, no por eso deja de ocupar un espacio de memoria. 

Las instrucciones REM son frecuentemente del tipo siguiente: 


10 REM ESTO CALCULA El TANTEOG 
10 REM ENCUENTRA EL ANGULO 


No hay ninguna razón para que sólo exista una instrucción REM 
pero, si el comentario que se desea añadir a una linea de programa 
precisa más de una línea de texto, es importante poner la clave REM 
al principio de cada una. Por ejemplo: 
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60 REM LA RUTINA DE MULTIPLICA 
CION POR LA _ QUE 

70 REM LAS COS UPAPRIABLES A Y E 
a SE MULTIPLICAN CONJUNTA 


En cualquier línea que empiece con la clave REM, el texto que 
sigue a la misma será ignorado por el ordenador. No obstante, el 
listado completo del programa, incluyendo los mensajes REM, apare- 
cerán en la pantalla si se solicita su presentación mediante LIST. 

Echemos ahora una ojeada a la edición. Escriba el número 10 y 
pulse ENTER. La línea de este número ha desaparecido. Es muy fácil 
desembarazarse de las que no se desean. Basta con escribir el número 
que la encabeza y dar la orden de ejecución con el ENTER. 


20 PRINT "ESTO ES UNA DEMOSTREA 
CION" 

30 PRINT 

40 PRINT E 

S90 PRINT "FIN" 

Añada 10 REM y pulse ENTER. 

Recordará, de las veces que ha pulsado LIST en los trabajos de 
esta sección, que LIST es la instrucción BASIC que utilizamos para 
hacer que el ordenador presente la totalidad del listado del programa 
que está trabajando. Todas sus líneas se relacionan por orden nu- 
mérico, en lugar de hacerlo por el que fueron introducidas en el orde- 
nador. Es decir, que la máquina pone automáticamente las lineas en 
orden. Escriba lo que sigue y pulse ENTER: 


15 PRINT “LINEA NUEVA” (NEWLINE) 


Observará en la nueva presentación del programa que, esta linea (15) 
se pone automáticamente en su posición correcta en el listado. 


15 PRINT "ESTO ES UNA LINEA NU 
id "ESTO ES UNA DEMOSTRA 

30 PRINT 3 

590 PRINT "Fis" 

Como sin duda habrá comprendido, la instrucción o enunciado 


RUN se utiliza para que el ordenador empiece a ejecutar un programa 
que le ha sido aplicado, bien escribiéndolo con el teclado o cargán- 
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dolo con una cinta magnetofónica grabada ('cassette””). El ordenador 
ejecuta todas las líneas que tiene almacenadas en su memoria, empe- 
zando por la de número más bajo, y continuando por el orden nu- 
mérico. Varias instrucciones hacen que la ejecución retroceda hasta 
un punto anterior del programa y vuelva a repetirse (bucles) pero, en 
esencia, el ordenador sigue el programa según el orden del número 
de la línea, a menos que se le diga otra cosa. 

Si se desea que el programa se detenga en un punto determinado, 
puede utilizarse una instrucción denominada STOP. Teclee 25 STOP 
(con A, manteniendo pulsado el SHIFT rojo) y aplique el ENTER. 
A continuación ejecute el programa. En la pantalla se verá: 


LINEA NUEVA 
ESTO ES UNA DEMOSTRACIÓN 


Y en el fondo de la pantalla se leerá el mensaje “9 STOP state- 
ment 25:1” que significa la ejecución del STOP por la primera ins- 
trucción de la línea 25. 

Volveremos al comando PRINT con un poco más de detalle más 
adelante pero existe otra instrucción que me gustaría introducir en 
este momento. El enunciado NEW borra cualquier programa de la 
memoria del ordenador y debe utilizarse para eliminar de ella toda 
información antes de empezar a introducir un nuevo programa. Si no 
se hiciese esto y se empleasen números de línea diferentes se entre- 
mezclarían las nuevas con las anteriores del viejo programa. La ins- 
trucción NEW es brutal y definitiva haciendo que el ordenador olvide 
todo lo que había recibido directamente o a través de cinta magnética. 

Pruébelo en su ordenador. Escriba NEW (con la A) y pulse ENTER; 
a continuación aplique LIST y nuevamente ENTER. Encontrará natu- 
ralmente que no aparece ningún listado. Pruebe LIST 10 y conseguirá 
el mismo resultado negativo. 


Las instrucciones 
PRINT y TAB 


Para continuar nuestra exploración de la instrucción PRINT, blo- 


quee las mayúsculas ('“CAPS LOCK”) como antes y aplique y ejecute 
el siguiente programa. 
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218 REM PRESENTACION E FORMATO 
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+ 
SQ PRINT “HOLA “¿En 
74 PRINT ad “¿TA 


Sa PRINT 1,2 
110 PRIMT 1;2 


Siga esta explicación cuidadosamente y aprenderá mucho sobre 
cómo el ordenador compone su presentación de salida. Podrá aplicar 
lo que ha aprendido para organizar sus propios programas según su 
deseo. Seguiremos el programa línea por línea: 


10 
20-50 


70 


110 


Título, instrucción REM. 

Cada una de estas instrucciones PRINT, sin nada a continua- 
ción, deja una línea que no contiene ninguna inscripción. 
Esto explica el espacio que queda en la parte superior de la 
pantalla, cuando ejecute el programa, antes de que algo 
aparezca escrito. 

Esta línea hace presentar la palabra HOLA y, dejando un es- 
pacio, aparece el número 60 para saber de qué línea procede. 
La coma (el SHIFT rojo y la tecla N, cerca de la esquina in- 
ferior derecha del teclado), como habrá apreciado, desplaza 
el origen de la línea hasta el centro de la pantalla. 

Esta instrucción permite que los números 1 y 2 se presenten 
juntos. Adviértase que aunque existiera un espacio entre 
ambos al redactar el programa (como en PRINT 1 2), el orde- 
nador los seguiría poniendo juntos, es decir, como 12. 

Esta línea utiliza comas entre los números para asegurarse 
que se presentan separadamente en ambas mitades de la 
pantalla. 

La coma al principio de la línea desplaza el 1 hasta la segunda 
mitad, como en el caso de la palabra HOLA de la instruc- 
ción 70. 

El punto y coma entre los números asegura que se presenten 
juntos como en la línea 80. 


Pueden utilizarse la coma y el punto y coma en las instrucciones 
PRINT para controlar la presentación en la pantalla que se desea. Borre 
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el programa con NEW y después aplique y ejecute la siguiente serie 
de programas para producir cierto número de efectos. 

El primer programa, denominado PRINT DOS, simplemente pre- 
senta los números del 1 al 10, en el lado inferior de la pantalla. El si- 
guiente (PRINT DOS -B), los presenta apretadamente juntos en una 
línea. El PRINT DOS-C, en pequeñas columnas; y el PRINT DOS-D 
imprime nuevamente los números del 1 al 10 con un solo espacio 
entre ellos. 


10 REM ESCRISE DS 
20 FOR wW=1 TO 10 


10 REM ESCRIBE DOS-E 
FOR ¿=31 TG 10 

SO FRINT 2); 

48 NEXT 4 


109 RE AR ii 
20 FOR uM=1 


20 FOR u=3 TO 
INT JJ; ” 


La utilización de TAB 


El enunciado TAB (de tabulación) puede combinarse ventajosa- 
mente con el PRINT. Desplaza la posición PRINT de la presentación 
el número de espacios especificados con un número. Aplique los pro- 
gramas PRINT DOS-E y PRINT DOS-F y vea los efectos de la ins- 
trucción TAB en ellos. 


HEN ae CRIBE DOS-E 
FOR =1 TO 10 
ERIN? TRE 3:02 
NEXT 1) 


PQ 
209% 
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30 REM ESCRIBE DOS-F 


¿2Q FOR J=3 TO 20 
30 PRINT TRE 3d 
40 NEXT y 


El siguiente programa TABULADOR LANZAMIENTO DE COHE- 
TES muestra la eficacia con la que puede utilizarse la instrucción TAB. 
Aplíquelo y ejecútelo. Después, fije de nuevo la atención en el libro 
para analizar sus líneas más importantes. 


1 PAPER _ 7: CLS 
10 e LANZAMIENTO 


D Pa] 
340 FOR Y=18 TO 1 STEP -1 
44 A E INK 241 


EXT B 
304 REM xx PROGRAMA PRINCIPAL * 


VD LET 0O=INT_ (RND+*233 +2 
FOR R=31_TO 6 


G 
1d * 
e PRINT nabo O; INK R;ASIR 
y 
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t 3 
$ x 
£ 3 
t 3 
( A R] 
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t 
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( 32x%>1 ] 
C 
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( 3 
C 3 
£ 3 
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L J 
£ 3 
í 3 
( )¿%>( 3 
$ > 
t 3 
L 3 
C 3 
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t 3 
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( 1 
L 3 
£ 3 
1 3 
“« IR > 3 
( 3 
t 1 
t 3 


Las líneas más útiles para este estudio son la 120 y 190 ya que em- 
plean la instrucción TAB para la presentación. La línea 120 se comporta 
como sigue: 
Gel Imprime el paréntesis izquierdo junto al borde de este lado 
de la pantalla. 

TAB 9 El 9 es un número entre uno y 25 (seleccionado en la lí- 
nea 90) que determina cuántos espacios laterales se mo- 
verá la posición PRINT. 
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INK r Determina el color con que se va a representar cada par de 
cohetes. 

AsS1r) Indica la parte del cohete que se va a representar. Utiliza 
elementos de la variable en cadena A$ que se asignó por 
el bucle (loop) READ de las instrucciones 71 a 74. No se 
preocupe por esto ahora; se tratará en detalle más ade- 
lante. 

INK O Devuelve el color de INK a negro. 

TAB (30) Después de que se ha representado la parte del cohete 
de la línea, la posición PRINT se desplaza a la posición 31 
de la línea, donde se imprime **)”” para situar un límite in- 
ferior en el lado derecho de la pantalla del límite **)”*. 


Veamos ahora la línea 190: 


La línea se encuentra dentro del bucle que empieza en la 180 y 
termina en la 200. El enunciado PRINT “*(*”; TAB 30;*”)'“imprime””)”” en 
el lado izquierdo de la pantalla y después se traslada a la posición 31 
(mediante TAB 30) para colocar un **)”* en el lado derecho. La linea 190 
utiliza un número aleatorio de veces determinado por Y que ha sido 
seleccionado en la línea 90) para establecer un número aleatorio de 
líneas vacías entre los sucesivos cohetes para espaciarlos. La línea 
140(POKE 23692,-1) asegura que el programa no va deteniéndose 
periódicamente para preguntar si continúa ('scroll?””). 


Conservación de programas 
(SAVE) 


Puede ser interesante conservar una copia permanente del progra- 
ma TABULADOR LANZAMIENTO DE COHETES. Los programas 
podrá conservarlos introduciéndolos en el ordenador mediante el 
accionamiento del teclado y previa conexión del cassette, de acuerdo 
con las instrucciones de su manual. Después pulse SAVE seguido 
del nombre del programa (puesto entre comillas). En este caso, le 
sugerimos que le llame COHETES, de forma que la instrucción sea 
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SAVE “COHETES”. Ponga en marcha el cassette, con la tecla de 
grabación apretada (siguiendo las instrucciones del manual, repetimos) 
y después pulse ENTER. 


Sugerimos que se adquiera el hábito de conservar cada programa 
tres veces seguidas en la misma cinta (C-12 ó C-15 para ordenadores) 
y que sólo se grabe un programa en cada cara de la cinta. Póngase 
una etiqueta con el nombre del programa (COHETES, en este caso). 
Aunque pudiera parecer un derroche utilizar una cara entera de la 
cinta con un solo programa (grabado tres veces), le ahorrará tiempo 
al no tener que buscarlo, lo que constituye un proceso engorroso, 
y le compensará sobradamente del gasto de utilizar más cassettes que 
las estrictamente necesarias. Se graba tres veces el programa para 
el caso de que la cinta se dañe en algún punto o, como a veces sucede, 
una grabación no se carga adecuadamente. 


Deben limpiarse frecuentemente las cabezas de grabación mediante 
un producto líquido o con una cassette de cinta limpiadora. Se trata 
de asegurarse que la grabación produzca la señal más clara posible. 


La comprobación de la buena 
grabación de un programa 


Una vez se tenga un programa grabado en cinta, se puede com- 
probar que ha entrado correctamente antes de borrarlo de la memoria 
del ordenador. 


Ya hemos visto que para grabar se ponía SAVE “PROGRAMA”, 
se accionaba la grabadora y se pulsaba cualquier letra del teclado del 
ordenador. Para comprobar la grabación, se rebobina la cinta, se 
pone el enunciado VERIFY “PROGRAMA”, se pulsa ENTER y se 
inicia la reproducción del contenido. Si todo está bien, aparecerá en 
la pantalla el nombre del programa y, al final, el mensaje O OK. A par- 
tir de este momento sabremos que el programa está completamente 
grabado en la cinta. 
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La combinación de dos 
programas en el ordenador 


Es posible cargar un nuevo programa en el ordenador mientras se 
conserva todavía el antiguo. Ambos programas se combinarán. Si los 
dos tienen idénticos números de línea, las instrucciones del nuevo 
harán desaparecer las del otro. Veamos un ejemplo. Introducimos 
el programa que sigue, lo grabamos (SAVE) y lo eliminamos de la 
memoria del ordenador (NEW). 


20 ae PE pegas DE PRUEDA Lo 


240 HEM LINEA 430 


Después se aplica al ordenador este otro programa que denomi- 
namos FUSION “UNO”. El primero de los programas se había conser- 
vado con el nombre de “UNO” y, a continuación, se carga, mediante 


el magnetófono aquel primer programa grabado. El segundo pro- 
grama es: 


S REM O e cas 
1S REM LIN 
25 REM L Fuen ¿8 
35 REM LINER 35 


En unos segundos nos aparece el siguiente programa en pantalla: 


SE REM PROSRANA DOS 
109 REM A] DE PRUEBA Uno 


40 HEN LINEAR 40 


El enunciado MERGE (fusionar) es muy útil para aprovechar las 
rutinas especiales, como la de RENUMERAR que se puede cargar 
después de haber introducido otro programa. Vale la pena asegu- 
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rarse que las rutinas que se empleen tengan los números de línea 
elevados (digamos que por encima de 9000) y que los inferiores sean 
utilizados para el programa. Esto asegura que no haya problemas 
de líneas duplicadas. 


Consejos para resolver 
problemas en la carga 
de programas 


En ocasiones puede resultar difícil el proceso de volver a llevar los 
programas grabados al ordenador. Si existen problemas de carga 
(LOAD) pruébense las siguierites sugerencias: 


(1) 
(11) 
(111) 
(IV) 


(v) 
(VI) 


Desconéctese el cable que no se usa de los dos que unen el 
ordenador y el magnetófono. 

Inténtese hacer funcionar el magnetófono con la alimentación de 
pilas. 

Sepárense el magnetófono, el ordenador y el televisor tanto 
como sea posible. 

Cámbiese el nivel de volumen del magnetófono ya que de unos 
a otros puede variar la potencia de la salida. Pruébese el cambio 
de los niveles del control de tono, elevando, en particular, el de 
los agudos y reduciendo el de los bajos. 

Asegúrese de que los cables no están rotos y de que en los 
mismos no hay soldaduras desprendidas. 

Esto parece tonto, pero hay que asegurarse de que las clavijas 
están correctamente colocadas en sus respectivos alojamientos. 
Puede ser útil poner unas etiquetas en el ordenador por encima 
de los correspondientes zócalos que nos permitan conocer su 
situación sin tener que mirar cada vez en la parte de atrás. 


Regresemos ahora a TAB. 

Sólo podemos utilizar TAB con un solo número después de la 
palabra. Recuérdese, TAB A desplazará A + 1 espacios laterales el 
principio de la posición PRINT en la línea. También podemos tener la 
palabra PRINT seguida por AT, y dos números, como PRINT AT 10,6; 
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que moverá la posición PRINT siete espacios laterales y once hacia 
abajo. La esquina superior izquierda de la pantalla tiene asignado el 
valor cero,cero, por lo que la instrucción PRINT AT 0,0; indica que 
la representación empezará en la referida esquina de la pantalla. Todo 
su lado izquierdo corresponde a 0, mientras que el derecho es el 31. La 
pantalla tiene un ancho de 32 caracteres, así que la posición más ale- 
jada de la derecha se numera con el 31. 


PRINT AT 


El siguiente programa ““SQUASH” utiliza PRINT AT Y,X para po- 
ner en posición una bola (linea 620) y un bate (linea 150). Se emplean 
las teclas *'Z” y ““M” para mover el bate en el fondo de la pantalla, 
a derecha e izquierda respectivamente. El programa cuenta el tiempo 
que se mantiene la bola en juego y proporciona una puntuación en 
función de aquél. Pulsando cualquier tecla, al final del juego, se 
puede jugar de nuevo. 

El listado puede parecer horripilante de momento pero una vez 
se haya familiarizado con estas tareas a lo largo de este libro, puede 
desear volver a programas como éste para desentrañar qué hace cada 
una de sus partes. Quedará sorprendido de lo mucho que podrá 
descifrar. 


10 REM SQUASH 
15 REM PROGRAMA DE 
20 o RUSTON 


GO SUB _ 690 
25_REM DESPLACE EL BATE CON 
A > E Z Y M 
o 
So CEr SETUP =3 
35 LET MOV BATE245 
406 BRIGHT_1: BO AER d 


45 PAPER 7: 
509 LET PUNTUACION=0D 
59 GO SUB 3 


7O REM REREXEXERLELERE 

20 LET PUNTUAC TON=PÚNTUAC ION + 
INCREMENTO 

110 LET_ AS=INKEYS 

130 IF A$="Z" OR ASK="M" THEN GO 
SUB MOUV BATE 


23 


24 


140 GO SUB DESPLAZAMIENTO 

152 PRINT AT 19,B3+11; INK 2/55 
1608 GO TO 50 

290 REM REZA LA 

300 REM xxx SET UP zxxxw 


LET X=1 
320 PRINT AT 10, ¿10; INK 17 “BM 
358 FOR T=0 


18 
340 PRINT Ar +10, 10; INK 21;"NE" 
¿AT T+10,30;"»B" 
350 NEXT 


. 
» 


.. +BH+" .. 


y 
00 
ga 
E 
qn mm 
Xx 
DIrxXu 
als 


410 PRINT “Ar 19,11+B;B5 
00) LET INCREMENTO=207+INT (RND 


230 RETURN 

452 REM EXI EXIAA AER 

460 REM xzx MOU BATE 3XxX% 

489 IF As="M" AND B=165 THEN 
RETURN 

490 IF Af="Z" AND B=0 THEN 
RETURN 

510 1F Ags="M" THEN LET B=5B+1 

520 IF P5="Z" THEN LET B=B-1 

538 RETURN 

540 REM EXA AAA 

550 REM 2% DESPLAZAMIENTO 22 

579 PRINT ATC 1139Y,113Xx;" ” 

580 IF L+X>183 eE pt THEN LET 

L=-L: BEEP .01, 

520 IF M+Y>3 DR Marco THEN LET 


M 
629 PRINT AT 112+4Y,113+X; INK 4D 
622 1F Y<>3 THEN RETURN 
625 PRINT AT 6, 7¿ INK_ 6; PAP 
2; EL TANTEO ES "PUNTUACION; 
630 IF Y=3 AND ABS (B-X1 <=2 


N 
540 PRINT AT oie INK 7; PAPER 


O Su 
660 BEEP q ¿G: BEEP .01,68-G 


6809 RUN 

590 REM _ LA LETRA ENTRE CORNILLAS 
EN _ LA _ LINEA 700 ES UNA M,PUESTA 
DESPUES DE ADOPTAR LA MODALIDAD 


700 LET Dñ="e" 
710 FOR H=8 Yo 7 


715 SBEEP tddi 


READ 
730 POKE USR "0"+H,N 
749 NEXT H 
750 REM LA SIGUIENTE LETRA ES 
LA REPRESENTACION GRAFICA DE Bo. 
769 LET Bs="A" 
?70 FOR H=08 TQ 7? 
775 BEEP .01,5S0/(H+1) 
760 READ N 
790 POKE USR "“X"+H,N 
NEXT H 
LO DOTAR 
ATA_BIN, SG020009 SIN, DNDIA 
306 “eN 00111100,BIN 861111110,8 
ó011111180,BIN 91111118, ¿BIN'O 
1 
3 
1 


109 

A SIN E BIN 0011 

a BIN 00211800,BIN 06111100,B 

0111100,BIN 01111110, BIN e111 
210, BIN 3111111112 


FIN DEL JUEGO 


EL TANTEO ES 216585865 


Los colores y los gráficos 


El Spectrum está equipado con poderosas instrucciones gráficas 
que pueden utilizarse para dar más realce a sus programas. Tales ins- 
trucciones son de uso sencillo y capaces de producir una amplia 
escala de efectos. 
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Hay tres cosas que se pueden controlar con el mando del color: 
el cerco O límite alrededor de la zona principal de presentación (que 
se consigue con la instrucción BORDER), la mencionada zona de pre- 
sentación (controlada con PAPER) y los colores de la presenta- 
ción (INK). 

Existen ocho colores disponibles (si se cuentan el blanco y el ne- 
gro como tales) y están numerados de cero a siete. Son los siguientes: 


0 — negro 

1 — azul 

2 — rojo 

3 — magenta (púrpura) 
4 — verde 

5 — cyan 

6 — amarillo 

7 — blanco 


Cuanto más bajo es el número, más oscuro es el color. En un tele- 
visor en blanco y negro, los números inferiores están próximos al 
negro y los superiores al blanco. á 

Cuando conecte su Spectrum, por primera vez, tendrá el centro 
de la pantalla (PAPER) blanco así como el margen (BORDER), y las 
presentaciones (INK) serán negras. Es decir, la pantalla estará com- 
pletamente blanca y cualquier programa que se introduzca aparecerá 
en negro. 

Los colores de tinta y fondo (INK y PAPER) se pueden utilizar de 
dos maneras. La primera es en forma global; es decir, si una línea de 
progtama dice PAPER 6, seguido de CLS (despejar la pantalla), el 
fondo (la zona encuadrada por el margen) se volverá amarillo. De for- 
ma similar, una línea de programa INK 2 asegura que la representación 
en aquel punto será roja. 

También es posible utilizar los colores en zonas limitadas. Si la 
instrucción es PRINT INK1;PAPER 7; “HOLA AMIGOS”, el Spectrum 
presentará las palabras entre comillas en blanco sobre una pequeña 
banda azul. El mismo control de una zona concreta es posible en 
las INPUT. Si se desea una cadena como dato de entrada, se puede 
hacer, por ejemplo, INPUT (INK 2; PAPER 6; “Cuál es su nombre””); 
la frase se presentaría impresa en rojo sobre una pequeña banda 
amarilla. 

Comprobemos ahora las instrucciones de color mediante el siguien- 
te programa: 
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20 REM DEMOSTRACION DEL COLOR 
=9 TO ? 


FO 
60 BORDER 
70 PAPER F: CLS 
60 INR 1 
20 PRINT_AT e ad 
ER? a 120; "FONDO 1 PHPER 


¡ "TINTAS IMK ) 
FOR Ú=1 TO 60: NEXT úl BEEP 
¡15 PEl12:5 
21D NEXT 1 
138 NEXT E 
130 NEXT E 


Este programa representa todas las combinaciones de MARGEN, 
PAPEL y TINTA (BORDER, PAPER, INK). Como verá necesita un 
largo tiempo para su ejecución (existen 8 *8 *8 combinaciones po- 
sibles) aunque varias de ellas no son muy efectivas (tinta blanca sobre 
papel y margen del mismo color no resulta precisamente muy fácil 
de leer). Otras combinaciones no son atractivas si bien hay algunas 
que son verdaderamente muy interesantes y vale la pena que tenga 
a mano papel y lápiz mientras ejecuta el programa para tomar nota de 
cuáles son. 

La línea que despeja la pantalla (70 CLS) es necesaria para hacer 
que el color del papel se aplique en forma “global”. Con ello sólo 
cambia el fondo debajo de las palabras que se imprimen. Pase el pro- 
grama otra vez sin la línea 40. Las instrucciones de tintas (INK) utili- 
zadas en un listado, que tienen automáticamente efectos globales 
si se hallan en una línea separada seguidas de CLS, limitan su acción 
a una zona determinada si son seguidas de PRINT o INPUT. Una 
instrucción global INK (como INK 2 para que toda la impresión sea 
roja) no cambia por otra limitada (como PRINT INK 1;“test'') ya que 
el color revierte al globalmente definido en cuanto aparece en el pro- 
grama una instrucción PRINT sin parámetro INK. 

Ejecute ahora el siguiente programa que muestra la eficacia con 
que se mezclan los colores cuando se eligen aleatoriamente. 


6 REM PIRAMIDE 
7 REM 2 HUGHES, HARTNELL 
10 ed R ”? 
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su LET T=T4+3 
946 FOR M=5S TO 5+B:+2-2 
dt PRINT PT LN; INK INT (RND= 
+ . . .. 
105 BORDER INT (RND+S) +41 
NEXT N 


120 LET L=L-1 

130 LET B=B-121 

140 LET Sz=53+1 

1509 IF 5>)0 THEN GO TO 80 
155 BORCER 1 

18e 60 TO 158 


El programa dibuja una pirámide de pequeños bloques coloreados. 
El margen (BORDER) produce destellos en forma alarmante durante 
todo el tiempo, y finalmente (línea 155) se hace azul. La línea 160, que 
se llama a sí misma, tiene por objeto suprimir el “OK” que, de otra 
forma, estropearía la presentación. Se sale del programa pulsando 
“BREAK”. 

El pequeño cuadrado negro al final de la línea 100 se obtiene direc- 
tamente del teclado en modo gráficos ('“GRAPHICS”') (se presiona 
tecla SHIFT blanca y se pulsa la 9), pulsando después la tecla 8 mien- 
tras se mantiene presionada la SHIFT BLANCA. Los inversos de otros 
caracteres se logran pulsando “'INV.VIDEO” (SHIFT blanco y la 4). 
Se vuelve a lo que se llama '““TRUE VIDEO” (video verdadero) apre- 
tando la tecla SHIFT blanca y la 3. El fondo negro de detrás de las 
letras inversas se hace del color de la tinta (INK) y las propias letras 
toman el color del fondo de la pantalla, lo que resulta más efectivo 
como demuestra el siguiente programa: 


15 PAPER 3 
cGLS 
29 FOR od 100 


2. ¿RND+9; "EEES 
q: 


Utilizando este listado de colores directamente en un programa 
puede producir buenos resultados como el siguiente CODIGO DE 
COLORES demuestra. Es una variación del “*Mastermind””, como verá 
si lo ejecuta. El programa espera que adivine un código de cuatro 
colores, no cuatro números o letras como en la mayoría de otras 
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versiones del juego. Aplique y ejecute el programa. Después vuelva 
al libro para la explicación de las instrucciones que se utilizan sobre 
colores y gráficos. 


30 AE Cocsicno se coLoAsa 

20 POUORE 235Y432,19Y 

340 DIM C14) 

d0 DIM G(4) 

S0 DIM HI(4) 

60 INK 0: BORDER €: PAPER 7: 
cLa 

a PRINT_ “TAB 3,¿"ESTOY PENSAN 

DO EN _UN CODIGO" 

380 PRINT “DE 4 COLORES. TIENES 


14 INTENTOS” 


EJ] 


PRINT "PARA _ACERTARLO. ESCO 


dO ENTRE ESTOS COLORES 


PR 
N SER IGUALES" 
140 PRINT 


F OS6 
ro TAB 4+C0; INK Q¿C¿;” > 


INT” “1” LOS CULORES PUEDE 


22 PULSA UNA TECLA 
EMPETAR."” 
PAUSE 4£4 
CL5 
PRINT AT_1,5; 
FOR C=1 TO'6 
PRINT INK D;0;">"; INK C;"E 


LET C (11 =INT (RNDF6) +1 


= 
LET Z=Z9+1 
LET C(ZI1=<INT (RANCDI6) +1 
LET uU=a 
LEFT u=ud+di 
E y a ld co TG 232 
IF “UxZ- HEM Toe 278 


IF Z:i4 FHEN co “So 248 
FOR 61 TQ 2108: POKE 22822,- 


PRINT_ INK aiii TU cop 


324 
Ga SUPUESTO NUM, * 
INPUT 


? 


330 
335 


NE) 


340 


u 
Ae 0=1 TO 32: PRIMT CHAS a 
PRINT * 


FOR 2=3 TQ 4 
LEFT G(Z1=A-1AFINT (A/AMA 


LET H1Z3)=G1Z) 
LET AZINT' (Alda 
MEAT IZ 

LEY BR: LEFT iii 
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30 


418 FOR Zi TO 
428 IF EIA TER THEN 60 TQ 


430 LEFT S=8>1: SEEP .2,28318 
440 LET se bea 

450 NEXT 

4809 FOR 72 Ta 

47D IF id rien co To Som 
£28 FOR n¿l=2 TQ 

428 IF Ci THEM o Ta 


sena Ley mir: BEEP .2,88-B318S 
s2 
538 FOR T=ád JO 1 ms -3 
S4Q PRINT IMK $1IT1,"H Ea 
HEXNT TT 


$68 SPRINT INK 0; 
S78 15 B1>1 7 THEN. ¿part ES 


mear; 
S9b IF 141 Fhefe Mr ao 


PRIFT 
510 B=4 THEN PRINT PRINT_” 
ARERTASTE EN EL INTENTO NUM"; ¿a 


.. 
era”; 


50% ÍÉxMT T 
218 FOR $24 TO 68: BEEP .-DIH: 


720 POKE 23692 

P?30 PRINT DESEA OTRO JUEGOT” 
735 PRINT Lo a S/N" 
740 LET At= EYS: 1F INKEYS="" 
THEN_GO_TO 320 

a” 1F CODE ASC>CEODDE “N”" TREN R 


770 PRINT ** INK A ONDAS RND zx 
15; "BIEN, ADIOS POR ANO 
7580 POKE 236392,-1 

0 FOR _H=1 TO 25 


3810 60 TO 779 


ESTOY PENSANDO EN UN CODIGO 
DE 4 COLORES. TIENES 10 e 
PARA doi ESCOJO ENTR 
ESTOS. SOLGAE 


LOS COLORES PUEDEN SER IGUALES 


PULSA UNA TECLA PARA EMPEZAR + 


Línea 20 (POKE 23609,100) cambia el ritmo del “'clic'”” cuando se 
pulsa una tecla de sonido para actuar como una realimentación posi- 
tiva cuando se hace tal pulsación. Tenemos tendencia a utilizar esta 
instrucción siempre y la encontramos muy útil para la programación. 
La línea 60 establece la tinta y el margen (INK,BORDER) negros (0) 
y el fondo (PAPER) blanco (7). Las rutinas desde las líneas 100 a la 120 
presentan los seis colores (poniendo un cuadrado en cada color) en 
diagonal, con números próximos a los colores a que se refieren. La 
línea 150 espera hasta que se pulse cualquier tecla antes de continuar. 

La rutina desde la línea 220 a la 300 selecciona los colores, ase- 
gurando que los cuatro sean diferentes. La 210, mientras tanto, ha 
desplazado la posición de impresión una línea hacia abajo (mediante 
el apóstrofo de la tecla 7, al que se accede pulsando simultáneamente 
el “SHIFT” rojo), y las líneas 180 a 200 han presentado los seis colores 
en línea en la parte superior de la pantalla con los números corres- 
pondientes. 

La línea 310 empieza el bucle para proporcionar las diez opciones 
a adivinar. La segunda mitad de la línea 310 (POKE 23692,-1) asegura 
que si la pantalla se llena, correrá automáticamente sin solicitar una 
respuesta a la pregunta “scroll?”" que, en otro caso, se encontraría con 
frecuencia en la parte inferior de la pantalla. Junto con el sonido de 
pulsación de tecla también usamos frecuentemente este despla- 
zamiento (“scroll automático”) POKE. 

La línea 320 pide la solución supuesta, y una vez se ha introduci- 
do 330, utiliza el retroceso (CHR$8) 32 veces para volver a la línea que 
solicita la entrada de la hipótesis supuesta. La línea 320 la sobreimpre- 
siona con espacios en blanco. Esto significa que se borra la línea 
INTRODUZCA HIPOTESIS 2 pero no ocurre lo mismo con las hipó- 
tesis anteriores (y el código de colores de la parte superior de la pan- 
talla), de forma que se pueden mirar tales hipótesis como ayuda para 
encontrar la solución. Se introduce la solución supuesta, entrando 
un número de cuatro cifras, haciendo uso del código de color que 
tenemos en la parte superior de la pantalla. Es decir, si queremos 
introducir el color azul, pulsaremos el 1. 

La rutina de las líneas 350 a 390 disocia el número que hemos apli- 
cado en cuatro dígitos separados, las variables para negros (B) y blan- 
cas (W) se ponen a cero en la línea 400, y entonces la solución su- 
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puesta introducida se compara con el código de cuatro dígitos que 
ha establecido el ordenador, produciéndose unos pequeños pitidos 
para los “blancos” y ““negros'” a medida que los encuentra. Si usted 
ha acertado, el programa lo dice. En caso negativo, y si no ha consu- 
mido las diez oportunidades, se indicarán los dígitos del color correcto 
en la adecuada posición (negros) y el color acertado en posición equi- 
vocada (blancos), a la vez que se le brinda otra oportunidad. 

Ya sabrá que puede utilizar PRINT AT 4,7; “TEST” para presentar 
esta última palabra cuatro líneas abajo y para empezar siete espacios 
a la derecha. El carácter de control CHR$ 22 se comporta igual que 
PRINT AT pero con una diferencia. Para conseguir el mismo resul- 
tado que en la instrucción PRINT AT 4,7; “TEST” es necesario intro- 
ducir PRINT CHR$ 22 + CHR$ 4 + CHR$ 7; “TEST”. Sin embargo, 
debido a que el Spectrum permite la concatenación (adición de ca- 
denas alfanuméricas), se pueden añadir todos estos ““CHR$” para 
formar una sola cadena. Esto puede ser muy útil si se desea especificar 
una determinada localización PRINT AT varias veces en un programa. 
Ejecute el siguiente programa y verá cómo actúa: 


19 LEFT AYASCHRA 22+CHRS 4>CHAY 
20 PRINT A5Ñ; “TEST” 


Puede simularse el funcionamiento de la instrucción TAB ha- 
ciendo preceder al CHR$n— donde n es el número de espacios (más 
uno) donde se desea iniciar la presentación —, con CHR$ 23. Ejecute 
el siguiente programa para ver este planteamiento en acción. Sin em- 
bargo, dado que CHR$ 23 realmente espera estar seguido por dos 
números (n y m que tienen el mismo efecto que PRINT TAB n + 256*m), 
puede hacerse preceder la información dentro de las comillas con un 
espacio vacio o una letra de simulación (X en nuestro ejemplo), que 
no será presentada. Ejecute el siguiente programa y verá que en lugar 
de aparecer XTEST en la parte inferior derecha de la pantalla, sola- 
mente se verá TEST. 


10 LET AS=CHAS edi ES 
20 PRINT o: “XT 
359 GO TO 


Al principio de esta sección se trató de ocho colores, y se expuso 
cómo podían utilizarse con la información que se presentaba (INK), 
con respecto al fondo (PAPER) y al margen (BORDER). La informa- 
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ción presentada puede modificarse con la utilización de dos instruc- 
ciones adicionales. BRIGHT (brillo) y FLASH (destelleo). La rutina 
siguiente muestra esta acción. Introdúzcala y ejecútela, volviendo 
después al libro para tratar brevemente de estas dos nuevas instruc- 
ciones. 


¿2 PRINT INK 4; "MODAMAL po 

E PRINT BRIGHT 1; INK 4; "BRIL 
SÓ PRINT INK 4; PAPER 2;"NORMA 
55 PRINT BRIGHT 1; XINK 4; PAPE 

R 2;"BRILLO DEDOS É + 

Se PRINT FLASH 17 INK 4; "DESTE 

NT_ BRIGHT 1; FLASH 1; IN 


ILLO 
INT SA5 1, PAPER 2, INK 


o 
55 PRINT BR A; ASH 1; PA 
PER 2; INK 4; "BRILLÓ a 


Aunque el efecto del destelleo (FLASHING) es imposible que pase 
desapercibido, será preciso mirar con un poco más de detenimiento 
para ver el de brillo (BRIGHT). Una vez que haya ejecutado este pro- 
grama, mire la palabra BRILLO (BRIGHT), justo debajo de NORMAL, 
cerca de la parte superior de la pantalla. Verá que hay una tonalidad 
diferente del verde. El blanco sobre el verde (la sexta línea en la parte 
inferior de la pantalla) muestra el efecto de BRILLO más claramente. 
Compare la claridad de la palabra BRILLO aquí con la palabra des- 
telleo, justo encima de ella. En las palabras sin destelleo, con los 
colores verde o rojo (una extraordinaria combinación), apreciará que 
aquellas a las que se aplica “brillo” son algo más fáciles de leer que las 
“normales”. 

Aunque ya se han explicado los números del cero al siete que se 
aplican a los colores de tinta (INK), fondo (PAPER) y margen (BOR- 
DER), hay otros que pueden utilizarse. Usando el 8 (como en 
“PAPER 8”'), se expresa que cualquier cosa que se imprima en ese 
punto no variará de color. Esto no es particularmente útil en la pro- 
gramación ordinaria pero el número 9 puede ser muy efectivo. 

Este número significa contraste y asegura que si se está repre- 
sentando sobre un fondo claro la presentación se hará en negro, y 
se hará en blanco en caso de fondo oscuro, algo parecido al cambio 
de color en las instrucciones INPUT que depende del color del margen 
(BORDER). El siguiente programa muestra esto en acción, presentan- 
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do letras del alfabeto escogidas aleatoriamente e igualmente situadas 
al azar, contra un color del fondo (PAPER) arbitrariamente seleccio- 
nado. Ejecute el programa durante un rato para ver esto y después 
vuelva al libro para ver nuestras nuevas instrucciones gráficas útiles. 


e A ANE-E 
sn E a 
1% FOR G=1 TO 32 

PRINT_ AT RNDI20,RND:30; CHAR 
188+INT yá 2; 

128 MEXT 


1 Lo 
148 _PRINT AT ANDA20 AND+D0; DUE 
R 1;CHAS (6S+INT (RAND+2 


La palabra OVER es muy útil y puede producir efectos muy cu- 
riosos. Habrá observado al final del programa anterior una línea 
aparentemente innecesaria. Mediante el control de edición (tecla 
EDIT) pase el contenido de la línea 140 al lugar de la 110, y cambie 
el 32, al final de línea 100, por 300. Advertirá, de vez en cuando, que 
hay letras que aparecen sobre otras que han sido presentadas antes. 
La instrucción OVER hace que las nuevas marcaciones no eliminen 
las que están debajo sino que sencillamente las complementan, sus- 
trayendo unas de las otras para hacer una nueva configuración. Esto 
nos permite componer algunos caracteres propios. Aplique y ejecute 
el nuevo programa para crear formas. Es muy difícil predecir el efecto 
de la adición de varias letras de esta manera. Por ejemplo, una “o” 
minúscula con una “'w”” del mismo tipo producen lo que parece una 
*“*T*”” mayúscula. 


10 CUER 1 

20 FOR G=1 70 16 

30 INPUT "ENTRA UNA LETRA"; AS 
40 INPUT dea OTRA LETRA” ¿DS 
50 a ,¿G;¡AS;CHAS 9;B$ 


Recordará que tratamos anteriormente de la forma en que podían 
utilizarse las instrucciones CHR$ 22 y CHR$ 23 para sustituir a PRINT 
AT y TAB, y la posibilidad de concatenar aquellos (sumarlos) para 
constituir una sola cadena. Lo mismo puede hacerse con las otras 
instrucciones. Los caracteres de control y las instrucciones a las que 
substituyen son: CHR$ 16 - INK; CHR$ 17 - PAPER;CHR$ 18 - FLASH; 
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CHR$ 19 - BRIGHT; CHR$ 20 - INVERSE; CHR$ 21 - OVER. Estas ins- 
trucciones van seguidas del número que corresponde al color o función 
requeridos. Como decíamos, pueden sumarse entre sí, tal cual se ve 
en el programa siguiente: 


20 INPUT PAPER 6; INK_1;“ENTRA 
UN COLOR_PARA LA TINTA" 
Su INPUT INR 27 “ENTRA ÓN coco 


FO 

¿280 INPUT FLASÉ 1; SRIGHT 14; IN 

K 4; PAPER 2; “ENTRÁ UNA PALABRA” 
yd 


SY LET o did 186+C0HR39 A?)CHAS 
173>0H53 B E 
sR PRINT T 198,10/P35 


La línea 60 de este programa podría también, por supuesto, aña- 
dirse a la cadena alfanumérica (string) A$. Quizás le gustaría tratar de 
hacerlo como ejercicio. 


En el manual se explican caracteres de control adicionales. En el 
manual hay una tabla que proporciona una descripción completa de 
los diversos efectos disponibles en la hilera superior del teclado. 


Si desea ver lo efectivo que puede ser el color, incluso en un pro- 
grama sencillo, aplique y ejecute la rutina siguiente. Si los pitidos 
le molestan, borre las lineas 90 y 100. Si desea que la construcción 
del gráfico se haga más rápida, cambie el 7 al final de la línea 40 por 
un 6 para que no se representen los cuadrados blancos. 


e FORES_ E O cis 


De? 

52 BRINT AT As: INK ze 
52 PRINT AT 21-9,B; INK AN 

Ae AT 21-A:32-B; INK Z; 
20 PRINTCOAT A)321-5: INK TZ“ 
SS EF RUDSUNO THEN GO TO 2 
192 BEEP RND.30,RND*6D-RAD BD 
118 GO TO 2e 


Cuando haya disfrutado un rato con este programa, modifíquelo 
como sigue: 
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10 PAPER _7,. ri Y: cis 


LET DES 
59 PRINT AT A,B; FLASH PF; BRIG 
HT 1;EXP Z; "MN" 
50 PRINT AT 21-A,8; FLASH F; 8 
RIGHT 1; INK 2; "WN" 
a PRINT 


90 IF RND>AND THEN Go TO 20 
10M BEEP AND/23M,AND+SA-ANDISA 
110 60 Ta 29 


Observará que se ha aumentado el brillo de cada cuadradito y 
que se ha añadido un destelleo (FLASH) a cada circuito del programa. 
Tanto cuando la intrucción BRIGHT como cuando la FLASH encuen- 
tran un 1, se activan; es decir, aumenta el brillo del cuadrado o se 
inicia el destelleo. Si tales instrucciones encuentran un cero, no se 
activan. FLASH y BRIGHT, como varios otros, no convierten en 
enteros los números aleatorios producidos por el ordenador (función 
INT por entero), sino que los redondean al más próximo de donde 
el entero (INT) de un número positivo siempre es el más próximo por 
debajo del número más fracción (0.5). En consecuencia, el efecto de 
la línea 25 es activar el FLASH en algunos bucles del programa y 
desactivarlo en otros. Podrá apreciar esto cambiando el RND de la 
línea 25 por 1 y ejecutando el programa durante un rato. Después 
lo hace cero y vuelve a observarlo. Finalmente, es posible que le 
guste modificar el programa para convertirlo en el siguiente que deno- 
minamos “Sopa de Letras Griegas'”, nombre que comprenderá cuando 
lo haya visto. Esta versión final resume muchos de los puntos tra- 
tados hasta ahora en esta sección. 


7 REM_ SOPA DE LETRAS GRIEGAS 
10 PAPER 7: BORDER BS: ULS 
Z2 LET ASKND+1D 
25 OUER_1 
39 LEFT E=-PND+*16 


E? 
45 LET AE=CHAARE_ 155 +END*25) 
58 FRINT ATOA,E; ERIXGHT 2; INK 


Z ¡PAS 
68 ERINT AT 21-A,B;; ERIGHT 2; 
INK ZAS 
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78 FRINT OA EL-H,31-B; GRIGHT 
2 INK_ Z; AR 

603_PRINT AT A,31-E ERIGHT 2: 
INR _ ZiH$ 

2a 60 TO Za 


La realización de gráficos 
con gran resolución 


El PLOT (Trazador) permite gráficos con gran resolución, como 
puede observarse ejecutando los programas “Galaxia” y “Seno só- 
lido””. Una vez visto este último, se habrá dado cuenta que mien- 
tras la resolución de puntos viene en función del número de los posi- 
bles en las dos dimensiones de la pantalla (256 x 192), la resolución 
del color es sólo de 32 x 22. A pesar de esta merma, pueden conse- 
guirse, sin embargo, dibujos de alta resolución con una definición 
muy efectiva. 


19 REM _ GALAXIA 

20 PAPER 0: DORDER or; cis 
28 LET EC=225: LEFT 173 
40 INK RND*7 


E 
93 INR_RND+7 
300 50 TO 38 


10 REM FUNCION SHE ds COLOR 
20 REM ÚOCOLIN HUGH 
“ies ósea 


TO 109 
70 FOR N=9 TO Y STEP SGN Y+-¿ 
ce FLOT INK RNIDEOS; Xxx34+50,3x% 1N+ 


30 NEXT N 
200 DEEP .1,X: NEXT X 
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El trazado de dibujos 


Es posible apreciar la eficacia con la que se pueden lograr gráficos, 
mediante el siguiente programa, “Vidrio Roto”, que utiliza la instruc- 
ción DRAW. El fondo de la pantalla (PAPER) se hace blanco (línea 30), 
el margen (BORDER) (línea 50) y colores de la tinta (INK) (línea 60) 
se establecen con variación aleatoria. La linea 70 se asegura que tales 
colores sean diferentes. Si no lo son, se escoge un nuevo color de la 
tinta. La pantalla se despeja por la línea 100 y se seleccionan aleatoria- 
mente un par de coordenadas. Se marca un punto en el centro de 
la pantalla (línea 130) y se traza una recta desde ese punto al de coor- 
denadas previamente escogidas. DRAW determina la longitud que 
tal línea ha de tener y con qué ángulo ha de ser trazada pero nece- 
sita que se le dé un punto de partida. Este punto es proporcionado 
en este programa mediante el uso del PLOT. 


10 REM VIDRIO ROTO 
20 ii il RUSTON 1932 


S0 LET A=INT (RNDx8) 
6580 LET S=19T 1(AMD+72 
TA 1F AR THEM 20 TQ un 
540 SORDER A 
980 INK 5 
cs 
110 LET CoimT iRADIDSS) -123 


12080 LET D=INT (RND+172)- 
150 Ral 028 ao 


145 BEEP .01 RANOs10R-S5Q 
150 Ar AND>8.82 THEN GO TO 2118 


DRAW traza líneas cuando va seguido de dos números que son 
las coordenadas PLOT del punto final de la linea. Si se añade un tercer 
número, DRAW trazará parte de un círculo, siendo este tercer nú- 
mero el ángulo de giro. El programa “curvas rotas”, que es igual al 
“vidrio roto”, excepto el final de la línea 140, traza una especie de 
versión de barrido del “Vidrio Roto” al girar la línea un ángulo en 
radianes de ”'pi”' partido por dos. 
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ES bus pas pus do 
04-00 
a tololo! 


JDNINUN 
ofolole It lo] 


REM CURVAS ROTAS A 
REM_Ó HARTNELL, RUSTON 1952 
PAPER 7 

LET A=INT tRND*5> 

LET B=INT_(RNDF7) 

IF A=5 THEN 60 TU su 

BORDER A 

INE B 


LEFT C=INT (ANEASED: -135 
LET_D= E 


=0 
1E> ANI! ViS THEN GO TO 110 
RUN 


REM CURVAS ROTAS 
REM POS CAMBIANTE 
EM ARTNELL, RUSTON 19523 


PE E 
LET A=INT (RNDx9) 
LET B=INT_ (RND*73 
1F _A=E TREN 65 TO 56090 
EORBER A 
INK B 
CL5 
LET E=INF (RRNDAZIS? -135 
LEFT D=iINF_ (RANDE1723) -55 


FL 125,66 
1F RND>0,.5 THEN INK RKNDRG 
DREd E.Do 1/ 


> BEEP .02, RÉFIDO-59 


1F RND>5.025 THEN SO TO 219 
KUN 


La sentencia “CIRCLE” 


Existe otra sentencia — CIRCLE— que dibuja círculos. El programa 
“Visión Túnel” establece un margen (BORDER) azul pálido sobre 
fondo (PAPER) blanco y a continuación dibuja una serie de círculos 
de color aleatorio alrededor de un centro cuya posición sufre pequeños 
cambios también aleatorios y cuyo radio varía de igual forma. El pri- 
mer número después de la sentencia CIRCLE es la abscisa del centro 
y el segundo la ordenada, mientras que el tercero corresponde al 
radio. 


10 REM UISION TUNEL 

15 BORDER 5: PAPER 7: CLS 

20 CIRCLE INAK RNDS;' ÍISDERNDELO 
—RND 0. 56 +RND +7 -RND-7?,RND+G6S 

39 1F END>.392 THEP 
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109 REM VUISION ¿nes 
iS REM_CON MARCHA ZIGZACUEANTE 
IRULE_ INR ANGLE, 12 + AND +18 
28 


8 
RAY INK RND+8) OVER 1,32-R 
P_ RND/4,AND:5O0-39 


S4 IF AND>.23 THEM 20 TO 2a 
E A THEM 60 TO 20 


Finalmente aquí se presentan más programas para demostrar la 
eficacia del Spectrum en el manejo de gráficos. 


S PAPER _RND*x7 
O BRILE DE CUADRADOS COLO 
10 REM DEMOSTRACION DE PRNTALL 


20 BORDER_2 
ES PRPER 7? 


27 CEL5 

39 PRIA INM RNDES+1;3AT RAADEZA 
JENDESIS 

40 GO TO 50 


Se REM SONIDO Y UISION 


BORDER RND0LA7: PAPER AND: 


r Y" 3 as Za y 

10 REM "TESSERACT" 
12 REM GOURLAY, HARTNELL 

SGORDER_1+RND: PAPER Y: CL5S 
20 RANDOMIZE 
25 LET P=85: LET S=45 
50 LET X=RANDE*P: LET Y=RNDEP 
35 INK RNDx6 
37 FOR S=2 TO ANDO 
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40 PLOT P+x45,FeY 
50 PLOT P+Y+S5,P+X 
60 PLOT P-X+5,P+Y 
7D PLOT Peres, Pox 
50 PLOT P-X*S5,P-Y 

PLOT P-Y+5,P-X 
10D OT PerntE, Por 


Pi Y 
110 PLOT P-Y45.P4x 
120 LET X=X+RNDeHND-1 
1308 LEFT_VY=Y +HND +RKyD-2 


EXT 
149 IF RAND. OR ADS X>P OR Y5p 
ThEN_ 550 _ TO 39 

150 IF RNDc.D02 THEM 050 YO 23 
260 60 TO 50 

190 RUN 


10 REM_REMOL INO 
20 PAPER 7: CL3 


Pe .3 
PLOT ARCOS (14) +11, PRisSI 
ÑN Po PA 100 
39 NEXT ) 
30 Ii »Pr2 
100 NEXT A 
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o 
SIN 

60 

100 


REM AN TERLOGUTOR 
FPHPER 7: 


NEXT A 


REM CAMPO DE FUERZA 
HTIS_ MY LENTO 
e 7: LA 


F 7 STEP al 
PLOT PRxriJd+i4xSIN (J)33C0C05S (fu. 


y + 118, ¿AXU+2LESIN (Y) 3) 3SIN (Ji+12 
80 NEXT 


290 
190 


J 
INK A/3.S 
HEXT A 
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El arte de utilizar las cadenas 
(“strings””) 


El programa, creado por Jeremy Ruston, hace rebotar dos pelotas 
alrededor de la pantalla (X,Y y L,M) y después traza líneas entre ellas. 
Una característica extra es que se escogen nuevas velocidades fre- 
cuentemente haciendo que las pelotas reboten en puntos distintos 
que no se hallan en los lados de la pantalla. Para eliminar esta pecu- 
liaridad, bórrese la línea 116. 


DESCRIPCION. DE LAS LINEAS 


5 Establece los colores negro sobre fondo blanco. Se necesita 
esta línea ya que el programa puede ejecutarse con distintos 
colores. 

10 Escoge una abscisa X aleatoria para la primera pelota. 

20 Escoge una ordenada Y aleatoria para la primera pelota. 

30 Escoge una abscisa X aleatoria para la segunda pelota. 

40 Escoge una ordenada Y aleatoria para la segunda pelota. 

50 Inicia las variables requeridas para elegir las velocidades de las 
pelotas. 

60 Define un buen generador de números aleatorios. 

100 Acude a la subrutina de la línea 1000 que selecciona las veloci- 
dades aleatorias de las pelotas. 

110 *¡Exhibicionismo puro! 

115 La variable “num” corresponde al número de pasos que han de 
darse antes de elegir nuevas velocidades. 

116 Si la variable ''num”” toma el valor cero, es el momento de se- 
leccionar nuevas velocidades. La rutina en la línea 1000 tam- 
bién escoge un nuevo valor para “num”. 

120 Desplaza a X e Y. 

130 UneXeY con L y M. 

140 Si al sumar la abscisa X de la primera pelota a su velocidad la 
llevase fuera de la pantalla, se invertiría el sentido del movimien- 
to al hacerse negativa la velocidad. 

150 Véase 140. 

160 Véase 140. 

170 Véase 140. 

180 Suma la velocidad de la primera pelota a sus coordenadas. 
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190 Hace lo mismo para la segunda pelota. 
200 Otra vez exhibicionismo... 
210 Genera un número aleatorio entre O y 199 inclusive. 
220 Si el número es 1, ejecuta el programa (RUN), despejando la 
pantalla y creando una nueva presentación. 
230 Enotro caso, traza la siguiente línea de la secuencia. 
1000 Hace que la velocidad X de la primera pelota sea un número 
aleatorio entre —V y +V. 
1010 Véase 1000. 
1020 Véase 1000. 
1030 Véase 1000. 
1040 Escoge un valor aleatorio para la variable '“num”. Adviértase 
que no permite que tome el valor cero. 
1050 Retorna al programa principal. 
Alterando los valores de U y V de la línea 50 pueden separarse o 
juntarse las líneas. 
Es interesante alterar la instrucción DRAW de la línea 130 para 
dibujar una curva pero evítese la salida de la pantalla y procúrese no 
originar una señal de error. 


S BORDER 7: PAPER 7: CLS : IM 


Kg 0 
10 LET X=INT (RND*2565) 
20 LET Y=INT (RND*176) 
30 LET L=INT (RND*256) 
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340 LET M=INT (RND*176) 
SO LET U=zdS: LET U=? 
60 DEF FN RIX3=INT (RND*X) 


1006 GO SUB 1008 
110 REM REPITE 
115 LET NUM=NUM-1 
116 IF NUM=8 THEN GO SUB 1000 
120 PLOT X,Y 
130 DRA L-Xx,M-Y 
140 1P X+A>255 OR X+A<0 THEN LE 
¡180 _1F Y+B>175 OR Y+Bc0 THEN LE 


=-B 
160 IF L+C>255 OR L+C<0 THEN LE 
170 IF M+D>175 OR M+D<0 THEN LE 


TD 

2180 LET X=X+A: LET Y=Y+B 

2190 LET L=L4C: LET M=M+*D 

200 REM HASTA QUE RESULTE FALSO 
210 LET CON=FN R1200) 
230 IF Os RUN 


1050 LET D=FN_RtU)J-—Y 
284050 LET HUM=FN 120) +19 
1050 RETURN 
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Figuras de moiré 


Este programa dibuja las figuras de moiré. Traza una serie de 
líneas desde el centro de la pantalla a cada punto de sus márgenes. 
Como estas líneas se trazan estando establecida la sentencia OVER, 
se consigue el efecto que se presenta en la figura. 

Puede desearse modificar el programa para utilizar otro punto cen- 
tral que no sea el de la pantalla. Pruebe a eliminar las referencias OVER 
y aumentando el tamaño del escalón (STEP) en las dos instruccio- 
nes FOR de las líneas 10 y 50 hasta un valor próximo a cuatro. Esto 
proporcionará mejores figuras de moiré pero, debido a la relativamente 
baja resolución de la pantalla con el Spectrum, el efecto no es tan 
bueno como el logrado con otros ordenadores. 

El color en este programa no resulta bien debido a la estrecha proxi- 
midad entre los puntos trazados. 


REM Sen or GIRATORIOS 
» JERENY RUSTON 

REM ATEN RELRRSERERRE¡TES 
INK 6: PAPER 0: BORDER 0: € 


L=RANDI2ZSS 


Dona 
A 
m 


LS 
1 


Lo] 
r 
m 
=>] 


50 


24 LET MRANDOI1I7S 
30 LET N=ANOF2S5 
40 LET O=AND+176 
S90 LET P=RND*256 
60 LET 8=RND+176 


1589 IF L+A>25S OR LAO THEN LE 
2198 1F »93B175 OR M439:0 THEN LE 
2400 IF M3C0>2S5S OR NIC<M THEN LE 
210 IF 0+D3175 OR 0+0<08 THEN L£ 
224 1F 0+E£3)255S OR P3>E<Q THEN LE 
230 1F G+F>17S OR 03+F:<8 THEN LE 


2508 LET £=L>M: LET M=My>8 
260 LET M=NS+C: LET 0O=030 
L P=P+E: LET G=0+F 
2808 REM HASTA QUE RESULTE FALSO 
290 GO TO 130 


PAPER 04: INK 7: BORDER tt: € 


a 
S REM FIGURAS DE MOIRE 
S REMO JUEREMY RUSTOMN 
7 REN AA RALARIAAA A 
ia FOR x= E. 25s 
20 PLOT x, 
30 epi 8 OÚER 35 25S5-X342,17S 


LS 


Lar 7 
70 DRA QUER 1,255,175-Yx*2 
350 MEXT Y 


S PAPER 9: CLS_: BORDER 09 
19 FOR_X=9 TO 253 


20 PLOT xx, 

30 DRAWY OVER 21,255-X%2,175 
40 NEXT 

50 ig Y=B0 TO 273 

60 PLOT 


70 DRA OUER_1;255,175-Yx2 
ED NEXT Y: REM ES Y 3: RUSTON 

55 LEFT S=RND+ 

90 FOR_X=235 TO o STEP -S 

100 PLOT X,0 

110 na DUER 1,235-X*2,175 


AY 0 TO 2175 STEP 5 


148 2505 

2 DRA ÚER 2,255,2175-Yx2 
158 NEXT Y 

165 PAUSE 209 

170 INK_RND*7: PAPER 39: CLS 
1809 60 TO £5 


La instrucción POINT 


Esta instrucción es con respecto a PLOT como SCREENS lo es en 
relación a PRINT AT. Es decir, se puede utilizar POINT para deter- 
minar la presencia o ausencia de un punto presentado con el enun- 
ciado PLOT en una localización determinada. 


10 REM BUSCA EL PUNTO 
20 FOR Az1 TO 104 
30 PLOT RND+100, RAND+100 


EXT 

$e LET CON=e 

60 FOR G=1 TO 10008 

79_IF_PDINT [RAD:109,0ND 190) = 
1 THEN BEEP 1,1: CÓN=CON+1 : 
PRINT PT 1,2;*LA Tasa DE. EENCUENT 
ROS ";¡CON/Gx190;* AT 3,1; 
"NUMERO DE ENSAYOS: . 


Este es un programa sencillo para demostración. Produce algunos 
puntos con PLOT, en forma aleatoria, y después también en forma 
aleatoria los busca. Cada vez que el POINT encuentra un PLOT (véase 
la línea 70), se produce un pitido que le avisa. Puede conseguirse una 
tasa de aciertos de alrededor del uno por ciento. 

Si el POINT, en las coordenadas X e Y, se hace igual a uno, existe 
un punto grabado con PLOT en esa posición. Si no ocurre así, 
POINT(X,Y) se hace igual a cero. Pruebe a ejecutar el citado pro- 
grama con el bucle A hasta 1000 y el G hasta 10000. La tasa de acier- 
tos será aproximadamente diez veces mayor que anteriormente (es 
decir, un 10 %). ¿Cuál es la razón de todo esto? 


La impresora 


Existen tres instrucciones que se utilizan con la impresora: LLIST, 
LPRINT y COPY. 


LLIST Pasa todo el listado del programa a la impresora. No es 
posible traspasar sólo una parte del mismo. Se comporta 
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LPRINT 


COPY 


análogamente a la instrucción LIST, con la diferencia de que 
la presentación se hace en la impresora en lugar de hacerse 
en la pantalla. 


También actúa como PRINT pero en la impresora. Puede uti- 
lizarse en modalidad directa, como LPRINT “HOLA AMI- 
GOS”, o bien en un programa, como; 10 LPRINT “LA RES- 
PUESTA ES”;A. 


Copia el contenido total de la pantalla en la impresora des- 
pués de haberse ejecutado un programa. Debido a que la im- 
presora no representa colores, la copia ha de considerarse 
menos impresionante que la representación en pantalla. Se 
puede experimentar con la utilización de la instrucción 
INVERSE para una zona limitada para dar más calidad a la 
impresión. 


Números aleatorios 


Los números aleatorios son muy útiles para los juegos con orde- 
nador. Examinemos su producción y utilicémoslos en algunos progra- 
mas sencillos. 

El ordenador permite generar dos números aleatorios con coma 
flotante entre cero y uno. 

Ejecute el siguiente programa para crear una serie de números 
entre cero y uno. 


10 PRINT RND 
20 60 TO 10 


Obtendrá una lista de números como esta: 
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1291594 
543 


»Q01 o 

. 03551 90.941253665 
0.4371 0.594056569 
0. 79025269 0. 535025477 
9.269150 0.7555580936 
0.193934631 0.51453154 
9.201839904 9.61231504 
Q.14257613 9.9563907043 
9.69433594 0.65031311 


Encontrará que los enteros aleatorios son frecuentemente más útiles 
que estos números entre cero y uno. Para obtener los enteros apli- 
que una instrucción como INT (RND 30) + 1. Ejecute el programa. Con- 
seguirá una serie de números como los que produce el siguiente pro- 
grama: 


10 _ REM _ NUMEROS ENTEROS 
ALEATORIOS 
20 LET A=INT E 
4 


El ordenador toma el número entre paréntesis (conocido como 
el argumento de la función) y selecciona números aleatorios entre el 
uno y dicho número. Para obtenerlos negativos basta poner el signo 
menos delante de INT. Pruébelo y pase el programa otra vez para 
conseguir un resultado parecido a este: 


-85 -16 
-97 -78 
3 -73 
52 -79 
-25 -63 
=23 -3 

2D -39 
-41 -564 
-ES -dé 
-97 -10 
-S4 =?73 
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Puede utilizarse el generador de números aleatorios para cualquier 
aplicación en la que sea necesario representar una actividad de este 
tipo, como puede ser la distribución de la mala hierba en un jardín, las 
nubes en el cielo o el resultado de un lanzamiento de dados. El si- 
guiente programa es precisamente la imitación de una partida con un 
dado de seis caras. Aplíquelo y ejecútelo algunas veces. 


14 REM qa a DADOS * 

20 PRINT “CUA UECES TIRO” 
39 PRINT "EL DADO?> 

40 be A 


L 
RINT ¡ DEGESA> DE TIRAR 


TO 
50 LET aa (RND=6) +3 


RESULTADO DE TIRAR EL DADO 
£ VECES 


PNG 


Corrida de toros 


He aquí un sencillo juego que muestra la: acción de un generador 
de números aleatorios. El juego en realidad no es un verdadero juego 
pero vale la pena practicarlo. Una vez que haya jugado unas cuantas 
veces vuelva al libro para tratar del programa. Resultará agradablemen- 
te sorprendido por lo mucho que ha aprendido. 

Usted es un matador de toros. El animal embiste diez veces y 
usted selecciona un número entre el uno y el tres, mientras el toro hace 
lo mismo. Si los números son diferentes, se salva de la acometida 
pero si son iguales se termina el juego. Al final se le adjudican los 
puntos conseguidos. 
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20 LET PUNTO 

30 FOR Gz= 10 

40 PRINT Ar a 4,4; INK 2” EL TO 
RO EMBISTE”" 

608 PRINT “TAB 1; a A MO 
UVIMIENTO po tE 1 

78 INPUT 

80 1F_ A«<I Por RA>3 THEN GO TO 7A 

230 Ea .= INT ayi +1 

100 THEN GO _ TUE 2% 

120 BRINT “TAB_47; INK Paga ici 
TE ILESO DEL PA sE “5 INK 2; 

139 BORDER 


19 REM PUNTOS=9 DE TOROS 


RAND x 

140 PRINT ””” Fix 2;“"EL TORO ES 
COGE ”";8 

dl PRINT ” INK 4; “TU ESCOGES ” 
q¿Ú¡ 

169 FOR H=1 TO 10 

170 BEEP .1,RNDxS58-RND+50 

1580 NEXT H 

1298 CLS 

200 NEXT G 


o 230 
RINT ?* INK 2;“NO ERES BUEN 


.e 


TORE 

239 FOR Te=i TO SU: BEEP .905,AND 
“50: NEXT T 

240 PRINT * INK 2; "PUNTUACION 
LOGRADA ";100%10-1Í 


EL TORO EMBISTE 
DUE MOVIMIENTO HACE (DE 1 A 3317 
SALISTE ILESaO DEL PASE 1 


EL TORO ESCOGE 1 
TU ESCOGES 2 


Adviértanse los apóstrofes (') de las líneas 120, 140, 150, 220 y 240 
(se aplica tal signo con la tecla del 7) que se utilizan para desplazar 
hacia abajo la linea de representación (la del PRINT). 

Recorramos el programa línea por línea: 

10 Instrucción REM de información sobre el título. 

20 Hace igual a cero la variable SCORE (tanteo). Después se 
tratará de las variables. 

30 Inicia el bucle “FOR/NEXT" para contar hasta 10. Estos 
bucles se estudiarán un poco despues. 
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240 


Anuncia que el toro acomete. 

Pide al jugador que entre un número entre uno y tres. 
Acepta el número del jugador. 

Comprueba si el número está entre uno y tres. En caso nega- 
tivo, vuelve a la linea 70 para aceptar otro dato de entrada 
del jugador. 

Establece B igual al número del toro, uno igualmente escogido 
aleatoriamente entre uno y tres. 

Compara el número del jugador (A) con e! del toro (B) y si 
son iguales envía la acción a la linea 220 para comunicarle 
que ha fracasado como matador. 

Le dice al jugador que se ha salvado en esta acometida. 
Cambia el color del margen (BORDER). 

Dice al jugador el número del toro. 

Recuerda al jugador su número. 

Establece una pequeña pausa, con música, antes de la si- 
guiente acometida. 

Despeja la pantalla. 

Retorna a la siguiente acción. 

Si el jugador se ha salvado de los diez ataques, el ordenador 
se remite a la impresión de la puntuación alcanzada. 

Este es el mensaje de haber fallado en el caso de que hu- 
biesen resultado iguales A y B en la línea 100. 

Bucle de retardo con música. 

Presenta la puntuación alcanzada. 


Leyendo esta explicación un par de veces y mirando cuidadosa- 
mente a la línea o líneas referidas, usted puede aprender algo más 
sobre programación. Hay un determinado número de instrucciones 
específicas que estudiaremos con más detalle pero probablemente 
está usted empezando a comprender bastante de lo que hemos 
visto hasta ahora. 


Variables 


Habrá observado en el programa anterior que se utilizaron letras 
para representar números. Se asignó la letra A (en la línea 70) a un 
número entre uno y tres y lo mismo se hizo con B en la línea 90. Las 
letras A y B en este programa se denominan variables. 
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Existen dos tipos de variantes: las numéricas y las de cadena 
(“string”*) o alfanuméricas. 

Casi cualquier combinación de letras y números puede utilizarse 
como una variable, siempre que empiece por letra y no haya signos 
de puntuación ni símbolos. Así TIZNAJO y D17 son nombres válidos 
para viariables, mientras que 2TIZNAJO y 1D7 no lo son. Las variables 
numéricas, letras o combinaciones de letras y números empezando 
por letra son de fácil utilización. Puede asignarse una variable de 
este tipo a cualquier número que esté dentro del alcance numérico 
del ordenador. El Spectrum ignora los espacios que haya en los nom- 
bres de las variables y no distingue entre letras minúsculas y mayúscu- 
las (así, a$ es lo mismo que AS). 

A propósito, como usted probablemente sabe, el ordenador utiliza 
la notación científica para representar grandes números con un entero 
seguido de hasta ocho cifras decimales seguidas de una E (para 
Operaciones exponenciales) y la potencia de diez por la que ha de 
multiplicarse el número. Aplique y ejecute la siguiente demostración 
que muestra la variable A en acción, siendo asignada a un número que 
se multiplica por diez y después se presenta en la pantalla. 


10 REM MOTACION CIENTIFICA 
20 LET Ax1234 
RINT A 


39 P 
4d LET A=10:3A 
se 60 TO 
1234 1.234E+14 
12340 1. 4E+15 
1234900 1. d4E+16 
12340900 1.234E+17 
12340000 1.234E+139 
.234E +5 1.234E+19 
212.234E+9 Ll. E+20 
1.234E+10 1.234E+21 
1.234E>+11 21.234E+22 
l. E+12 1. E+23 
1.234E+13 1.234E+24 


Adviértase que después de que el número tiene ocho dígitos 
(12340000), su presentación se hace como un número, la coma de- 
cimal, la letra E y una potencia de diez. Pruebe y anticipe la longitud 
del programa hasta alcanzar el máximo número posible del ordenador. 
Confirme su hipótesis. 
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Observando este listado advertimos otro par de cosas sobre las 
variables. Estas quedan asignadas por el solo hecho de aplicar su 
nombre (en este caso, A) precedido por LET y seguido del signo igual, 
a cuya derecha se pone el valor que hemos dado a la variable. Si 
decimos LET A = 99 y, a continuación, pulsamos PRINT A, apare- 
cerá en pantalla 99. La línea 40 parece un poco extraña. El asterisco (*) 
es el signo de multiplicar en lenguaje BASIC. La línea 40 parece decir 
que A es igual a diez veces ella misma lo que, en verdadera aritmética, 
no es cierto. Esta es, sin embargo, la forma en que se utiliza la instruc- 
ción LET en BASIC. 


Variables en cadena (''string 
variables”) 


Estas variables en cadena o alfanuméricas se representan con una 
letra seguida del signo del dólar ($). Apliquese LET A$ = “HOLA”, 
púlsese ENTER y después PRINT A$ y nuevamente ENTER. En pan- 
talla tendremos la palabra HOLA. Puede ponerse cualquier cosa, 
incluyendo números, símbolos, signos de puntuación o letras, entre 
comillas, para constituir una variable alfanumérica. Una serie de letras 
y lo que sea, entre comillas, es conocido por una cadena (string). 


El canto de los grillos 
y la temperatura 


Existe, aunque parezca extraño, una correlación entre la tempera- 
tura ambiente y el número de veces que canta un grillo en un minuto. 
El siguiente programa, que muestra nombres de variables largas en 
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acción, convierte el número de cantos por minuto en un valor de 
temperatura en grados Fahrenheit. Ejecútese este programa algunas 
veces. Obsérvese que la variable “canto” se hace igual a 80 en la 
línea 20. Esto se convierte en la variable '“temperatura”' en la línea 30 
y esta última variable se utiliza en la instrucción PRINT de la línea 40. La 
variable “canto” se incrementa en un número aleatorio comprendido 
entre uno y siete en la línea 60; existe un corto retraso (lineas 70 y 80) 
y el programa regresa a la 30 para repetir la totalidad del proceso otra 
vez. Se repetirá durante un tiempo muy largo (hasta que se exceda 
el máximo número que puede manejar el ordenador) si no lo interrum- 
pe con la tecla “BREAK”. 


LA TEMPERATURA ES 62 GRADOS F 
CUANDO HAY 87 CANTOS 


LA TEMPERATURA ES 63 GRADOS F 
CUANDO HAY 90 CANTOS 


LA TEMPERATURA ES 63 GRADOS F 
CUANDO HAY 92 CANTOS 


LA TEMPERATURA ES 64 GRADOS F 
CUANDO HAY 96 CANTOS 


LA TEMPERATURA ES 65 GRADOS F 
CUANDO HAY 98 CANTOS 


10 REM CONVERSION DE CANTOS 
DEL GRILLO 

20 LET CANTO=208 

30 LET TEMPERATURA=INT 1(1(CANTO 


-43+40.3) 
40 PRINT “"LA o ES E 
¿5 INRK AO E ES ADOS Fa." 
50 PRINT "CUANDO SE SYEN 3 


A Si CANTO; INK 0;" CANTOS/HIN" 
60 o CANTO =CANTO+INT (RND*73 
70 FOR J=1 TO 100 

su NEXT 2] 

e4a POKE 23692,-21 
GO TO 30 


Aunque resulta un poco largo pulsar los nombres de las variables 
largas presenta, sin embargo, una clara ventaja sobre la utilización 
de designaciones como A, B y C2. Se sabe, sin tener que mirar atrás, 
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lo que representa cada variable. He aquí otro programa que utiliza dos 
variables por su nombre para aclarar lo que se está haciendo. Eje- 
cútelo. 


M x** UARIABLES *+*x 
¿0 par Us="E EL ¿JUMNERO ES " 
30 LET NUMER 
50 PRINT Y5S; ”ERO 
MERO PRINT AT CUADRADO DE "¿Nu 
E PRINT TAB 5;"ES ";NUMERO*NU 
560 PRINT *"Y LA RAIZ CUADRADA" 
90 PRINT "ES “¿SOR (NUMERO) 
Resumen: 


e Variables numéricas. — Pueden tener cualquier nombre mien- 
tras empiece por letra y no contenga signos de puntuación ni símbolos. 


e Variables de cadena ('“string”") alfanuméricas. — Se repre- 
sentan por una letra seguida del signo del dólar y están constituidas 
por cualquier expresión encerrada entre comillas. Todas las variables 
se asignan mediante la instrucción LET seguida por el nombre de la 
variable, un signo igual y a continuación el valor que se le áplica. 


La instrucción INPUT 


La instrucción INPUT se utiliza para lograr información de un 
usuario mientras se está ejecutando un programa. El ordenador se 
detiene cuando llega a esta instrucción y espera una entrada de cual- 
quier clase desde el teclado antes de continuar el proceso del programa. 

Entre y ejecute el siguiente programa que muestra INPUTS nu- 
méricos en acción. El programa se detendrá en espera de que usted 
entre un número; a continuación se pulsa ENTER y vuelve a esperar 
otro número. Después de volver a pulsar ENTER, presentará la suma 
de los dos números. 


10 REM ** INPUT *x 
20 INPUT X 

30 PRINT ,X 
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n> 
EE 
0% J0 


Esto está bien en la forma en que se presenta pero no se sabría 
qué hacer durante la ejecución a menos que se hubiera leído el libro. 
Hay una manera sencilla de corregir esto mediante la programación 
con referencias del usuario. El programa precedente puede volverse 
a escribir de forma que el usuario no tenga duda sobre el significado 
de lo que se hace. 


10 REM 8 INPUT xx 

20 INPUT "DAME UN NUMERO “¿X 
30 PRINT ,X 

40 INPUT "DAME OTRO ";Y 

50 PRI , 

60 LET Z=X+Y 

7 PR "as * 


Al ejecutarlo se observa que el ordenador presenta las palabras 
incluidas entre las comillas y a continuación espera la entrada del 
dato. 

Obsérvese que muchas de las instrucciones utilizadas para con- 
trolar el PRINT pueden usarse con INPUT, como se ve en el siguiente 
programa. 


Combate 


S REM _** COMBATE =x 
6 POKE 23609,100 
10 LET TANTEO=08 
1S FOR uU=1 TO 24 
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28 PRINT AT 1,8; INK J/3;"JUGA 
DA_NUM aj 

30 PUf INK_J/3;“ ENTRA UN NU 
MERO DELUA ALaa A 

le LP ata br Asa THEN GQ Ta 

52 PRINT_AT 19,8; INK_3¿ “TU, N 
MERO E cel 6; 5," yl 
TANTEO ES po 

Z8 LET B=INT_ (ANDE10) 210 


80 PRINT AT e. 
es FOR M1 10'1b: Beeh* =63, 3.5 


_3110 1F AzB_THEN LET TANTEO= TAN 
es PRINT AT 14,6; INK 6;,”"BIE 


140 IF Ac>B THEN PRINT AT «B; 


INK 0; F 1; "MALA SUERTE" 
159 PRINT ¿AT 158,6; INK 2;” EL 
TAÁNTEO ES 


ANTÉO” 
0 LE TANTEDOS THEN GO TO 258 
178 FOR T=1 TO 20 
189 BEEP -81,2:T: BEEP .01,28-T 


204 NEXT y 
210 PRINT BRIGHT 1; INK 2;"“ EL 
JUEGO HA TERMINADO" 

228 PRINT FLASH 1; BRIGHT 4; 

INK 2,"Y SOLO_HAS E O6RADO EL TAN 


TE 
230 PRINT_” ENK 1;"TU MEDIA ES 
DEL “¿TANTEO+.88; * POR CIENTO” 


250 PRINT_ INK OA FLASH 1; 
TAB 4;“LO HICISTE 
268 FOR M=1 TQ 4: SEEP »DI AMOS 


0: PRUSE : NEXT M 
270 PRINT_ INK RND*6; FLASH 1,TA 


2908 GO TO 


JUGADA NUM. 1 
4 


TU NUMERO ES S 
EL TANTEO ES QU 
MALA SUERTE 
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En COMBATE usted selecciona un número entre el uno y el diez y el 
ordenador escoge hasta cuatro comprendidos en el mismo intervalo. 
Si uno de ellos es igual al suyo, su tanteo se incrementa en una uni- 
dad. Al conseguir cinco puntos de veinte jugadas, usted gana. En 
caso contrario, se pierde y el ordenador presenta el porcentaje lo- 
grado. Una vez que haya jugado con el programa vuelva al libro para 
revisarlo línea por línea. Aunque se trata de un juego bastante trivial, 
su ejecución y las explicaciones que siguen aumentarán sus conoci- 
mientos sobre varios aspectos del BASIC y, por supuesto, le permi- 
tirá ver INPUT en acción. 


190 
200 
210-240 
250-290 


Título. 

Ofrece un sonido musical al presionar las teclas. 

Pone la variable tanteo a cero. 

Inicia la acción del ciclo FOR/NEXT principal para contar 
las jugadas. 

Apunta el número de la jugada. 

Acepta la entrada para la variable A, utilizando j para esta- 
blecer el color. 

Comprueba que la entrada es aceptable. 

Presenta el número escogido y el tanteo. Obsérvese que los 
enunciados INPUT pueden encadenarse de esta manera, 
con punto y coma, y con la utilización de AT y TAB. 
Genera hasta cuatro números. Después de la creación de 
cada número (linea 70), cada uno se presenta en pantalla 
(línea 80), produce un sonido (linea 85) y lo compara con 
el del jugador (línea 90). 

El tanteo es incrementado en uno .si la suposición fue 
correcta y en la pantalla aparece BIEN! 

Presenta MALA SUERTE si la hipótesis es incorrecta. 
Vuelve a presentar el tanteo. 

Breve pausa con música (beeps) antes del siguiente movi- 
miento. 

Despeja la pantalla. 

Fin del bucle FOR/NEXT principal. 

Fin del juego, si pierde. 

Fin del juego, si gana. 
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Interés compuesto 


El siguiente programa muestra la instrucción INPUT nuevamente 
en acción, y también la utilización de nombres explícitos para las 
variables, lo que permite entender mejor lo que se está haciendo. Es 
posible que desee conservar este programa en una cassette ya que 


tiene un cierto grado de aplicación práctica. 
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10 REM INTERES SIMPLE 

20 REM Y COMPUESTO 

30 INPUT INK 1¿TAB 6; "CAPITAL? 
“5; CAPITAL 


INPUT _ INMK 2;TAB 4,” INTERE 
¿ INTERESES 
INPUT _ INK 4;TAB 4; o 


ar 
80 PRINT INK'2 O”; TAB ¿“SI 
MPLE" ¿TAB 17; COMPUESTO"; ¿TAB 27; 


2909 POKE 23592,-1 
PRINT INE LANA 


1 O ANUAL IDADES 

120 LE. SIMPLE=CAPITAL MSOSPITA 
La ( ñ 

138 LET COMPUESTO=INT (10BICAPI 
TALS(1+INTERESES/108) $4) -108 

140 LET DI ESINT O Si 803 (COMPUESTO 
-SIMPLE?+.005)) 1 

58 PRINT A TAS; SIMPLE;TAB 17 
¿COMPUESTO; TAB 27;D1F 

170 NEXT $ 


Az SIMPLE COMPUESTO DIF 
A O RR 


2 116.5 117.13 úu.o3 
3 124.75 26.34 2.8439 
A 133 137.31 4.31 
5 141.25 143.564 7.39 
6 149.5 160.29 11.4 
7 157.75 3174.17 16.42 
3 1 133.54 22.54 
9 174.25 204.1 3.335 
19 1 .S 2209.94 33. 
11 130.75 239.17 «42 
312 1 258.2 «2 


Este programa calcula el interés simple y el compuesto para el 
capital y rédito que usted determine, durante el número de años que 
decida. El ejemplo está preparado para un capital de 100 dólares, 
un rédito del 8,25 %, durante 12 años. 

Para detener un programa durante una entrada alfanumérica (la 
instrucción BREAK no actúa con el INPUT) utilice el cursor izquierdo 
(SHIFT 5) o el DELETE (SHIFT,O) para hacer que el cursor salga de 
las comillas, pulsando a continuación STOP(SHIFT,A) seguido de 
NEWLINE. Si se trata de un INPUT sin comillas basta pulsar STOP 
(SHIFT,A) y después ENTER. En ambos casos, el programa se detiene 
con un mensaje 9. 

Es útil rechazar los INPUTS no válidos antes de que afecten a la 
marcha del programa. 

Si se invita al usuario a hacer una nueva prueba, analícese su res- 
puesta como sigue: 


555 INPUT “DESEAS OTRA PRUEBA? 
ss 1F R3(1) ="3” THEN RUN 


Existe una ley en alguna parte que dice que el usuario responderá 
pulsando sólo ENTER, lo que nos deja con INPUT nulo. En conse- 
cuencia, no hay nada como un R$(1), no existe, como le dirá muy 
rápidamente el ordenador en la forma de un mensaje de error. 

He aquí otro método para impedir esto: 


55309 DIM R$(2) 
5539 INPUT "DESEAS OTRA PRUEBA? 


¿R$ 
555 IF R$1(1)="S” THEN RUN 


Debido a que R$ ha sido previamente dimensionado con DIM ha 
de tener un carácter, no importa lo que se entre. Si únicamente se 
pulsa ENTER, entonces R$ tendrá un espacio ya que esto es lo que 
se aplicó a R$ después de DIM y un INPUT nulo no lo cambiará. Si 
INPUT (la entrada) tiene una longitud de varios caracteres, sólo existe 
espacio en R$ para el primero. Si esta letra es **S””, el programa pasará 
para una nueva prueba. Este método tiene la ventaja de que si se 
entra una respuesta muy larga, como: “Sl, POR FAVOR, AMABLE 
ORDENADOR, ME GUSTARIA MUCHISIMO PROBAR OTRA VEZ 
SU GRAN PROGRAMA” (¡muy poco probable!), no hay necesidad 
de albergarla entera en la memoria. También es muy útil si se hace 
uso del “GO TO” o no se hace nada que descarte (CLEAR) las va- 
riables, almacenando así innecesariamente toda la respuesta. El se-. 
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gundo método es más convencional y utiliza una linea menos de 
programa que la rutina previa, aunque acoja innecesariamente la res- 
puesta en memoria: 


550 LOA R$ 
555 INPUT iSéseas OTRA PRUEDAT7 


¿558 “1F CODE RK=CODE "S" THEN RU 


El programa se explica por sí mismo: si el primer carácter de la res- 
puesta tiene un código (CODE) que es el mismo que el de S (es decir, 
es S), entonces el programa pasa nuevamente. Las entradas (INPUTS) 
nulas son rechazadas, entendiéndose que el usuario no desea jugar 
otra vez ya que, pulsando meramente NEWLINE proporciona una 
cadena vacía y el código (CODE) de las de este tipo es CERO como 
un espacio. 

La comprobación de la primera letra de un INPUT (entrada) es bas- 
tante fácil como se acaba de ver. Más difícil resulta cuando se quiere 
comprobar todo el INPUT; es decir, ver si el usuario ha introducido 
algunos signos de puntuación o ha incluido letras en una entrada nu- 
mérica. Veamos primero un INPUT alfabético. Los operadores de rela- 
ción: <,>, >=,< =, y < >, son muy útiles en este caso. Consi- 
deremos un INPUT donde se requiere una palabra estrictamente y 
no debe entrarse ninguna otra cosa. 


10 INPUT AS 
JS IF A$="" THEN 60 TO 10 
20 FOR A=1 TO LEN AS 
1IF_ ASIA) <"A” OR ASIA >"Z" T 
HEN GO_TO 10 
NEXT A 


La línea 15 asegura que las entradas (INPUTS) nulas (como la 
simple pulsación del ENTER) son rechazadas. El bucle que empieza 
en la línea 20 explora todos los caracteres de la cadena del INPUT, de 
uno en uno, y si se encuentra alguno que no es una letra se indica 
que se vuelve a entrar nuevamente la cadena, ya que el programa 
salta hacia atrás a la línea 10. De esta manera, no se permiten espacios 
entre las palabras. 

Cambie la línea 30 para que los espacios sean permitidos: 


SuO>IF (ASA) + 2 en” Epa E 
AND AGFIAJI<>" ” SO TO 1u 
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Puede fácilmente extenderse esta idea para que sean posibles los 
signos de puntuación, letras y espacios si se desea (números, claves, 
símbolos, etc., no se permiten) ampliando la idea en la línea 30. Re- 
sulta un poco más difícil detectar una determinada palabra en un 
INPUT. Así, por ejemplo, si se tiene una línea al final de un programa 
invitando al usuario a hacer otro paso de aquél y que en caso afirma- 
tivo, respondiendo “SI'” vuelva a pasar el programa, es bastante 
sencillo poner el INPUT en un ciclo y analizar la palabra como sigue: 


7810 INPUT “OTRA VUEZ? "As 
7020 FOR Az1 TO LEN APs-1 
7030 IF AFA TO A+13="S31I” THEN 


7040 NEXT A 
7050 STOP 


Si se entra “SI”' o “SI, POR FAVOR” el programa volverá a ejecu- 
tarse como se le solicita. Si la palabra entrada tiene una longitud infe- 
rior a la de la requerida (excepto la cadena |[''string”"] nula o vacía) se 
causará error debido a que la linea 7030 establece que el INPUT será, 
por lo menos, igual a la citada palabra. La cadena vacía hace que la 
longitud de A$ (LEN A$) sea igual a cero, por lo que la línea 7020 
FOR A = 1TO 0, con lo que dicha cadena es ignorada y no surge el 
problema. Pruebe a entrar la palabra “SIETE”, la rutina se vuelve a 
pasar porque ha detectado las dos letras *'Sl''. Lo que se necesita es 
una rutina que detecte si el carácter a ambos lados de estas dos letras 
es algo que no sea una letra. Es preciso actuar con mucho cuidado 
para hacer esto porque no es posible analizar ambos lados si el fone- 
ma “SI” se presenta al principio o al final de la expresión de entrada 
y el intento de este examen produciría un mensaje de error. A conti- 
nuación se presenta una rutina que se hace cargo de esto al añadir 
caracteres simulados al principio y al final de A$. Esta vez la palabra 
clave será “MAS”. 


7010 oia "OTRA _ VEZ? "¡AS 
LET 


7015 As=" 
7024 FOR A=2 TQ LEN A*- 
70930 IF A TO A+2)=" * AND_ £ 


AS O M 
AS (A-1)<"A" OR _ ASIA-1)>"Z"J AND 
Te <"RA" OR AS(A+S3="Z") THE 


70408 NEXT B 
70S5a STOP 


La rutina permite todas las longitudes del INPUT hasta el máximo 
posible. Si se desea cambiar la palabra clave en un programa vale 
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la pena asignarla a una variable o tener un INPUT en cualquier parte 
del programa para dicha palabra. Tendrán que hacerse las siguientes 
modificaciones a la rutina para utilizar una palabra clave diferente: 


O INPUT "ENTRA PALABRA CLAVE" 


7020 a "ENTRA FRASE"; AS 
7040 LET Ag=" " od 
7050 LET LS=LEN 


AS 1A-1) > 
( PEN” <"A"” OR As Asis) pde 
THEN R 
7090 NEXT A 


Si la rutina es demasiado larga y siempre se usa la misma palabra 
clave se puede evitar el empleo de S$ y L$ y poner dicha palabra con 
todas sus letras cuando haga falta, y sustituir todas las referencias 
a LS con la longitud de la repetida palabra. Véase el ejemplo anterior 
con “MAS”. 

Veamos ahora otro tipo de INPUT que se usa mucho en los juegos, 
tanto en los de tablero como en los de cuadrícula, y que utiliza coor- 
denadas como las de los mapas. Por ejemplo, consideremos un ta- 
blero como el siguiente: 


12345 


mUuUouw > 


Las coordenadas se introducen en forma de una letra seguida por 
un número; por ejemplo, C3 si nos referimos a un cuadrado como 
en el juego de los barcos o C3B4 si se trata de ir de un cuadrado a otro 
como en el juego de las damas. Si se ha decidido que las coordenadas 
se van a introducir en la forma de una letra seguida por un número 
es muy probable que más pronto o más tarde, deliberada o acciden- 


70 


talmente, se apliquen en orden equivocado y se interrumpa el progra- 
ma. Esta rutina detectará automáticamente si las dos cifras de una 
coordenada se han introducido invertidas y las ordena debidamente. 
Si se aplica al cuadrado representado anteriormente, para modifi- 
carlo con objeto de admitir otra escala de valores, cámbiense sim- 
plemente los caracteres entrecomillados en las líneas 30 y 40. La 50 se 
ha incluido exclusivamente para que pueda verse el efecto de la rutina, 
si hace al caso. 


210 INPUT AS 
1F_ LE 


Z0 N AS<2_ THEN GO TO 10 
25 L AS=A%1 TO 2) 
a 1 1223 3>="2” AND AS(13<="5 
" AND AsSi21>="A" AND ABRIÍZ) <= "E" 
TREN LEFT AS=AS12) +A115 
40 1F AS(1)<"A" OR AS(13>"E" OQ 
ARM (23 >"5" THEN 90 


TO 1 
50 PRINT AR 


La rutina es muy rápida de ejecutar y es muy difícil de romperla, 
aunque es seguro que algún lector inteligente encontrará la forma 
de hacerlo. Si usted encuentra la manera de vencer la rutina, modi- 
fíquela para evitar que el error vuelva a surgir. 

Una rutina para coordenadas de cuatro cifras es algo más compleja. 
La idea de este INPUT es que se pueda entrar el número del cuadrado 
de donde se sale y el número del que va a ocuparse en una jugada. 
Por ejemplo, E3D4 significaría que se mueve una pieza desde el cuadra- 
do E3 al D4. Permitasenos primeramente poner las letras y números 
en orden. 


10 INPUT de 

20 IF LEN As$«4 THEN GO TO 10 

30 LET Aj=zA$(C TO 4) 

49 1F ASt1)>3="1" AND AST1) ¿="S5 
“ AND AsSt21>="A9" AND AST2) ¿<= "E” 


S0 IF PS$( o 

AND A$t4)>="A" AND Ast1d4d)<="E” T 
HEN LET ASÍ3 TQ 1=9A5141375% 7 

60 IF rd <A" OR ASCIJ>"E”" Q 
R e E <”"1" OR AF(2)>"5” OR ASIS 
3 <A" OR AS(S)>"E" OR PÍs(dA <” 
OR 3 (4) >"5”" THEN GO TO 18 

PRINT AS 


Obsérvese que pueden acortarse ambas rutinas utilizando la ins- 
trucción de dimerisiones DIM. Al primer programa es posible añadir: 


5 DIM A$(2) 
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y omitir las líneas 20 y 25. Para el segundo programa agregue: 
5 DIM As$(4) 


y suprimanse las líneas 20 y 30. Lo que ambas versiones consiguen 
es asegurar que la cadena alfanumérica A$ no es ni más corta ni más 
larga de lo necesario. Si se entra un INPUT de más de cuatro carac- 
teres en la segunda rutina, el resto es ignorado. Si tiene menos de 
cuatro se añaden espacios si se ha incorporado la línea 5 (rechazados 
en la línea 60), o rechazados en la línea 20 si se emplea la versión sin 
modificar. Habiendo clasificado las letras y números, vamos a ordenar 
los movimientos correctos y los incorrectos. Será preciso que se 
mire al tablero presentado un par de páginas atrás. Supongamos que 
tenemos una pieza del juego de damas en el cuadrado E3. Necesita- 
mos determinar los movimientos correctos desde allí. Una pieza como 
la que tenemos solamente puede moverse hacia adelante en sentido 
diagonal. Los cuadrados en los que puede terminar son D2 ó D4. 
Antes de continuar la lectura, ¿es capaz de determinar la relación 
entre las coordenadas? 

Puesto que la pieza sólo puede avanzar un cuadrado cada vez, tiene 
que terminar en otro cuya letra sea alfabéticamente la más próxima 
a E. Dado que en su ordenador los códigos (CODE) de las letras que 
se suceden unas a otras por dicho orden crecen o decrecen en una 
unidad, el código (CODE) de la letra D es uno menos que el de la E. 
Por consiguiente, si el código de la letra del cuadrado desde donde se 
inicia el movimiento no es una unidad mayor que el de la que corres- 
ponde al cuadrado de llegada, el movimiento es incorrecto. El número 
del cuadrado de partida debe ser una unidad mayor o menor que el 
de llegada, por lo que nos encontramos con el siguiente planteamiento: 


55 IF (CODE PA3S12 22 CODE ET 
2) OR (CODE nes )>CODE ASA TA 
OR (CODE AF(2)= CODE ABRA) -1)3 
THEN 60 TO lu 


Resulta obvio que será necesario adaptar estas rutinas a los corres- 
pondientes programas y que sólo se pretende mostrar su propio fun- 
damento para que sobre él se puedan elaborar las rutinas que sean 
necesarias. También sirven para demostrar el enfoque preciso que 
ayuda a resolver los problemas de esta clase. Sugerimos las siguientes 
recomendaciones por considerarlas de valor: 


(1), Determine exactamente lo que quiere realizar. 
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(11) Fije con exactitud lo que está permitido y algo de lo que no lo 
está (las cadenas |''string""] vacías, por ejemplo). 

(111). ¿Cómo pueden impedirse las acciones prohibidas, o rechazarlas 
cuando se incurre en ellas? 

(IV) Compruebe mentalmente si su rutina realiza lo pretendido por 
medio de un par de ejemplos. 

(V) Si está satisfecho con su rutina, introdúzcala al ordenador y 

pruébela con algunos valores o caracteres permitidos para saber 
si existe algo que impida su entrada. 
Tras el paso anterior con éxito compruébese la rutina con toda 
clase de entradas (INPUTS). (Por ejemplo, trate de entrar una 
coordenada inexistente, como F9 en las rutinas anteriores.) Aho- 
ra ya se está preparado para la prueba más importante. 

(VI) Permita que un amigo someta a prueba la rutina con órdenes 
que la desconcierten. Las rutinas anteriores tienen un error pero 
no vamos a decir cuál es. Se lo dejamos a usted como ejercicio. 


Veamos finalmente las entradas (INPUT) numéricas. Deje en blan- 
co su ordenador con la instrucción NEW y entre lo siguiente: 


10 INPUT A 
28 560 TO 106 


Ejecute (RUN) este programita y vea si lo puede romper de alguna 
manera; no debe ser demasiado difícil. Pruebe a entrar una letra, o un 
STOP, o un número demasiado grande o demasiado pequeño para 
la capacidad del ordenador: o bien, una palabra clave o un signo arit- 
mético tal como “+”. 

Los signos aritméticos hacen que el ordenador presente la indi- 
cación de un error de sintaxis aunque no detienen el programa. Claves 
y símbolos también producen esto, si bien las letras hacen que el pro- 
grama se detenga con un código 2 de error, indicando que se ha utili- 
zado una variable no definida. Se ha dicho que las variables (sin adje- 
tivar) son siempre numéricas, ¿por qué al error derivado de la entrada 
de una letra lo atribuimos a una variable sin definir? No es una inco- 
rrección. Cuando se entra una letra en respuesta a un INPUT numérico 
el ordenador piensa que se está introduciendo una variable y esto 
puede ser muy útil en ocasiones. Con el mismo programa entre un 1 
como primer INPUT, la segunda vez introduzca A y... ¡es aceptada! 
Lo que el ordenador ha hecho es buscar el valor de A y asignárselo 
a la variable de este nombre. En otras palabras, no ha cambiado el 
valor de A. Ahora entre STOP. El programa se detiene con un men- 
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saje de error. Pruebe a introducir PRINT A, y aparecerá el 1 de forma 
que el programa se ha detenido antes de actualizar el valor de A. En 
realidad, cuando se interrumpe un INPUT numérico, el ordenador, 
por lo general, retiene el valor previo de la variable. No es que esto 
sea muy útil pero, en determinadas circunstancias, si no se reinicia el 
programa, la variable tiene un valor. 

La mejor forma de hacer frente a estos problemas es mediante el 
uso de variables alfanuméricas ('“string'*) como INPUTS, evaluándolas 
con VAL. Pruebe: 


E INPUT AS 

LET AVAL AS 
30 PRI 
40 GO TO 10€ 


Encontrará bastante fácil interrumpir el programa. Muchas cosas 
válidas de las entradas (INPUTS) numéricas parecen suceder con esta 
pequeña rutina. Sin embargo, la ventaja de este método es que no se 
interrumpe hasta que se aplica el enunciado VAL si existe un error. 
Puede procesarse la cadena (''string'") antes de la aplicación de VAL 
después de la entrada del INPUT y eliminarse los errores antes de que 
se produzca la interrupción, es decir, se puede comprobar la cadena. 
Lo importante a recordar es que VAL puede aplicarse con cualquier 
cosa numérica no solamente con números. Pruebe lo que sigue: 


PRINT VAL “RND” 

PRINT VAL “SGN —7” 

PRINT VAL “A*2” (esto sólo es posible si se ha definido previa- 
mehte A) 

PRINT VAL *COS1” 


Los nombres de variables no definidas son el azote de VAL, junto 
con las instrucciones no numéricas, las claves o los símbolos, que 
han de eliminarse antes de la aplicación de dicha instrucción. El caso 
más sencillo es en el que sólo se permiten las entradas (INPUT) nu- 
méricas y puede hacerse como sigue: 


10 IMPUT PRÑ 

20 FOR Fx=1 TO LEN AE 

390 1F ASIF)12"20" OR AFIFAIIA" y 
HEN GO TO 10 

40 NEXT _F 

50 LET A=UAL AS 

650 PRINT P 
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¿Puede verse de inmediato lo que provocaría esta rutina? Nuestra 
vieja amiga, la cadena nula o vacía, tendría como bucle FOR F = 1TO 0 
por lo que se ignoraría y resultaría inútil. La solución debería ser aña- 
dir: 151F A$ = *”” THEN GO TO 10. La rutina hace que vuelva a entrar 
el número si lo que se ha aplicado no lo era. Es posible extender la idea 
para permitir signos aritméticos y nombres de variables si se desea pero 
tiene tan poco uso que no vale la pena. 


[r-] (AS(F)>"9" OR AIF) <"0") 
AND hs IN AND ASRÍF. <>" “3 
THEN GO TO 10 


Esta rutina permite entrar los signos de adición y potenciación. 
Para admitir funciones adicionales agréguense simplemente al segundo 
espacio entre paréntesis que se halla enlazado con el anterior por AND. 
Esto no es que sea tremendamente útil pero algún día puede encon- 
trarlo aplicable. Volveremos a la instrucción VAL y a otras funciones 
de análisis de cadenas más adelante pero ahora necesitamos examinar 
instrucciones fundamentales de la capacidad de “'pensar'' del orde- 
nador. 


GO TO 


Una importante facultad de la programación es la de poder enlazar 
diferentes partes de un programa durante su ejecución. Sin esto, el 
programa siempre se ejecutará según el orden numérico de sus líneas 
y al llegar a la de número más alto se detendría. Una instrucción que 
permite movimientos a voluntad dentro del programa es el GO TO. 
Ir a la instrucción GO TO se compone de un número de orden de línea 
seguido por GO TO y otro número de línea o un cálculo (como GO TO 
2*X, 0 GO TO 200 + 340). 

Si el ordenador se encontrara 140 GO TO 190, saltaría inmediata- 
mente desde la línea 140 a la 190. Esto se llama un salto incondicional. 
Es decir, es un salto que no depende de la existencia de una condición. 
Una vez en la línea 190, el programa continúa su ejecución por orden 
hasta el final o se encuentra con otra línea que lo envía a cualquier 
otra parte. 
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Se puede utilizar el GO TO para producir programas que no ter- 
minan. Son muy efectivos, especialmente al final de un juego. Ejer- 
cítese el siguiente para verlo en acción: 


19 PRINT INK RND*+B6;"..HAS GANA 


D.>. 

20 POKE 23592,-1 
30 BEEP .01,RÑDI50 
¿42 GD TO 18 


La instrucción 
IF... THEN GO TO 


La instrucción IF realiza una función similar a GO TO pero sola- 
mente desviará el programa si se cumplen ciertas condiciones. Ello 
origina un salto condicional. La instrucción IF/THEN se compone de 
un número de línea seguido de las palabras IF/THEN/GO TO (SI/ 
ENTONCES... IR A) separadas por una relación que debe determinarse 
antes de dejar la línea. Existen seis operadores de relación que pueden 
utilizarse para comparar dos variables. Son éstos: 


igual a 

mayor que 
menor que 
distinto que 
mayor o igual a 
menor O igual a 


MAYA VII 


AVA 


Estos operadores se utilizan con las instrucciones IF... THEN (SI 
[condición] ENTONCES) para formar la condición a determinar. 

He aquí un ejemplo: 70 IF Z > = 10 THEN GO TO 100. 

Esto será interpretado por el ordenador en el sentido de que SI el 
valor de la variable Z es mayor o igual que 10, el programa se desviará 
a la instrucción de la línea 100. Si Z es menor que 10, el programa con- 
tinuará su ejecución normal pasando a la línea siguiente, la 80. Con 
ello se proporciona al ordenador la capacidad de tomar decisiones, el 
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verdadero origen de la aparente facultad de pensar de la máquina. 

Como probablemente usted ya habrá descubierto, el ordenador 
no es indeciso (a menos que se le diga que lo sea). En cada caso toma 
una firme decisión de hacer o de no hacer algo. Lo que realmente hace 
depende de lo que se le diga, generalmente después de la pala- 
bra THEN de la línea. Vamos a ilustrarlo con un programa sencillo 
para presentar en pantalla el número que se acaba de entrar en forma 
literal en lugar de hacerlo con los signos numéricos. 


19 INPUT INK RNDXS;"ENTRA UN 
NUMERO DEL 1 AL A 
39 51 TREN PRÍNT "UNO" 
Je le Bea THEN PRINT "DOS" 
50 1F AR=2 THEN PRINT “TRES” 
68 GO TO 10 


No necesariamente ha de estarse limitado' por una condición entre 
el IF (SI) y el THEN (ENTONCES). Para seguir con el ejemplo anterior 
supongamos que a usted se le permitiera ir a casa a las cinco tan sólo 
si hubiera terminado su trabajo: 

SI (IF) son las cinco de la tarde Y (AND) ha terminado su trabajo 
ENTONCES (THEN) váyase a casa. Cuando se desea reunir dos o 
más expresiones de condición con otra como “usted ha acabado su 
trabajo”, pueden utilizarse tres palabras de enlace para lograrlo. Estas 
son: Y (AND), O (OR) y NO (NOT). Si se tiene una expresión condi- 
cional con la conjunción Y (AND) uniendo ambas partes, entonces 
el ordenador hace algo si ambas partes son verdaderas. Si son las 
cinco de la tarde pero usted no ha terminado su trabajo, entonces 
no se puede ir a casa, por ejemplo. 

Para ilustrar el análisis de VERDADERO (TRUE) y FALSO (FALSE), 
probemos este programa: 


10 INPUT E 


a INPUT 
1F A=1 anp B=1 THEN PRINT “” 
VERDADERO" 
4a 50 TQ 149 


Trate de entrar diterentes valores y vea los resultados. Intente cam- 
biar los valores de la linea 30 y observe el efecto que produce. Tome 
nota de sus respuestas hasta que comprenda lo que pasa. 

Veamos lo que sucede con el OR (O). Pensemos en la conjunción 
disyuntiva en relación con la expresión “si (IF) son las cinco de la tarde 
o (OR) el jefe le autoriza, entonces (THEN) puede irse a casa””. Esto 
es hacer algo cuando una de las alternativas es cierta. Mejor aún, 
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hacer algo cuando, por lo menos, una de las alternativas es cierta ya 
que carece de importancia cuántas pudieran serlo (incluso sería po- 
sible que lo fueran todas). Así que usted se va a su casa a las cinco 
de cualquier manera, cualquiera que sea la circunstancia que le per- 
mita marcharse. Pruebe a experimentar con el siguiente programa tal 
como lo hizo con el anterior. 


10 INPUT A 

20 INPUT B 

399 1F A=1 OR B=14 THEN PRINT ” 
VERDADERO" 

409 60 TO 20 


La última de estas palabras de condición es NO (NOT). No une 
expresiones como las anteriores pero cambia su significado. Estudie 
esto: 


SI (IF) el director NO (NOT) ha dicho que se vaya a casa, ENTON- 
CES (THEN) quédese trabajando. 


Significa que, a menos que se le haya dicho que se vaya, ha de 
permanecer en el trabajo. Lo que pasa es que el ordenador mira la 
expresión y decide que si no es verdad, entonces hace algo (con esta 
finalidad ignora el NO para decidir lo que es verdad y lo que no lo es). 
Es decir, SI NO... ENTONCES (IF NOT... THEN) es verdad cuando 
lo que siga al NO sea falso. Se hace algo sólo cuando una condición 
no se cumple. 

Pruebe esto: 


10 INPUT A 
20 INPUT B 

nar” 1F Ac>B THEN PRINT "VERDADE 
40 60 TO 212 


Esto puede parecer confuso al principio pero si se experimenta 
con los valores de A y B se observará un conjunto de resultados que 
ilustran el funcionamiento del NO (NOT). 

Se habrá advertido que hemos utilizado el signo igual ( =) en todos 
los ejemplos hasta ahora. Recuérdese que éste es sólo uno de los 
seis operadores de relación. He aquí nuevamente la lista de los seis 
que utiliza su ordenador: 


< menor que 
> mayor que 
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< = menor O igual a 
> = mayor O igual a 
<> distinto a 

= igual a 


Cambie los programas de forma que se utilicen todos los OPERA- 
DORES DE RELACION. Juegue con estos programas hasta que sea 
capaz de predecir lo que va a suceder cada vez. Pruebe con combina- 
ciones de Y, O y NO (AND, OR, NOT) y vea en qué orden son maneja- 
dos. Vea si puede determinar cómo cambiar el resultado encerrando 
las expresiones entre paréntesis. Observe que no siempre se puede, 
de manera que, si ciertas expresiones le dan problemas, déjelas y 
pruebe con otras. El orden de la evaluación viene determinado por 
las prioridades, de las que nos ocuparemos con detalle más adelante. 

Se pueden aplicar las expresiones condicionales a las cadenas alfa- 
numéricas así como a los números. 


10 INPUT As 
£0 1F AS<>"PACO PICHAPIEDRA" 
THEN NEY 


Ejecute el programa y vea lo que sucede. La primera vez que lo 
haga entre el nombre PACO PICAPIEDRA en mayúsculas. El programa 
se detendrá normalmente. Poco interesante. Vuelva a ejecutarlo otra 
vez y en esta ocasión entre su propio nombre (si resulta que verda- 
deramente se llama PACO PICAPIEDRA, ponga el nombre de otro). 
Ahora el programa se autodestruirá debido al NEW de la línea 20. Si 
sustituye su nombre o un número en clave por PACO PICAPIEDRA, 
tendrá un programa que sólo trabajará para usted o para los que co- 
nocen la clave y se autodestruirá si alguien intenta utilizarlo. 

Veamos ahora los valores en las expresiones condicionales. Primera- 
mente utilizaremos los operadores relacionales. Observará que verda- 
dero se representa por 1 y falso por 0. 


Su 60 TO 18 


No son verdaderamente necesarios los paréntesis en la línea 30 pero 
ayudan a clarificar el significado. La expresión entre paréntesis se re- 
duce a 0 o 1 que dependen de los valores que se introduzcan. Pruebe 
a utilizar los seis operadores relacionales y tome nota de los resultados. 
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Obtendrá 0 ó 1 cada vez, lo que le hará pensar que esto es un poco 
restrictivo. En realidad, como este valor de O ó 1 puede considerarse 
como un número, es posible manipularlos como se hace con ellos. La 
mejor manera de manipular números es multiplicarlos, ya que esto 
cambiará los valores verdaderos pero no los falsos (lo que se multiplica 
por cero es 0). Cambie el programa para formar el siguiente: 


18 IMPUT a 

20 INPUT B 

Ba LET Y=fS=2R1 325 
ER PRIMNT « 

5 5 TQ 32 


Esta vez obtendrá el valor O para las expresiones falsas y un 2 para 
las verdaderas. El punto interesante es que estos valores de expre- 
siones condicionales son números y pueden tratarse como tales lo 
que resulta muy útil. A continuación, sigue el programa de un sencillo 
juego, CAZADOR DE BURBUJAS, para ilustrar la utilización de lo que 
hemos estado tratando. 


10 REM *CAZADOR DE BURBUJAS + 
20 LET 5= 

29 FOR 4J=1 70 2D 

49 PRINF AT 18,393 INM 322 
50 NEXT _J 

560 FOR 6=50 TO0_1 STEP -1 

70 PRINT AT 5,39; INK_6; PAPER 
EAS TIÉMPDO>";6;* FAN 


LEFT A=INT (RAND) +1 
30. BRINT AT O9,38A FLASH 2; IN 


EE «2,50 
120 LET =INKEY $ 
130 1F AS:>"" THEN GO TO 170 
140 NEXT 


159 LEFT SB=S-2 
170 LET S=5+1AS=5TRS A) A 
150 mos RT 9,59A; 


130 G 

209 PRINT AT_5,3; INK 6 PAPER 
2; FLASH A;” TIÉMPO> no,” TANY 
ED>"; PAPER 6; INK 2; Sha de 

210 PRINT_AT_13,3;5 FL 13 INAH 


OD; FAPER 56; BRIGHT ar “SE ACHES , 
AMIGCOS!)!" 


La idea del juego consiste en pulsar la tecla del número bajo la 
burbuja móvil. Por ejemplo, si se para sobre el 3 ha de pulsarse el nú- 
mero 3 y se adjudica como puntuación el valor del número. En este 
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caso se añade 3 al tanteo. Los intentos que quedan se presentan con- 
tinuamente en la pantalla igual que el tanteo. La línea 170 es la que nos 
interesa de momento. Aquí si el enunciado STR$ A (valor de A conver- 
tido en una cadena alfanumérica |'“string'*] de forma que pueda com- 
pararse con la tecla pulsada) es igual a la tecla accionada, el valor ló- 
gico se hace 1 porque la expresión es verdadera. Cualquiera que sea el 
valor, se multiplica por A. Si es O, el tanteo no cambia: si es 1, el 
tanteo se incrementa en 1*A. El tanteo es contado por la variable S. 
El número de ensayos que quedan lo determina G. 

Pasemos ahora a examinar los valores de las expresiones condicio- 
nales en las que intervienen las operaciones lógicas Y, O y NO (AND, 
OR, NOT). El valor que toma la operación lógica X e Y (X AND Y) es 
el siguiente: 


X si Y es verdadera (no cero) 
O si Y es falsa (cero) 


Las variables X e Y pueden ser expresiones como X = 26 Y = 2*B. 
Una aplicación común es para el control del movimiento en la pan- 
talla. Muchos juegos utilizan las teclas de flechas cursoras para dicho 
movimiento, consiguiendo así el desplazamiento hacia la izquierda 
O la derecha de algún elemento de presentación: 


10 LET X=1S 
20 IF INKEYBM="S"” AND Xx THEN 
LET X=Xx-2 
es o id AND X<38U THEH 
cd PRINT AT 21,X; INK 23;“B" 


Xx; 
sé “bo ro 20 
Con este programa se mueve un cuadradito rojo en saltos de dos 


columnas a lo largo de la hilera del fondo de la pantalla. Puede lograrse 
lo mismo con: 


10 LET x=1S 

20 LET X=X-1IMKEYS="S” AND X>4 
+24 CINKEYS= "8 AND X<30) 22 

ee RINT AT 21,X; INK 2;"W";AT 


xo 
só bo TO 28 


O con: 
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10 LET 


20 LET epa (2 Epa Pt “s” A 
ia ANO INKEYBM="2”" AMNE x2< 
o PRINT AT 21,X; INK 2; “DAT 


36 60 To eu 


El punto a señalar en los dos últimos programas es que las expre- 
siones entre paréntesis toman el valor del número delante del pri- 
mer AND (Y) si todas las expresiones que están después de él son ver- 
daderas. Compárense con las operaciones lógicas X e Y de las que 
acabamos de tratar. Aquí X es un número (2 en este caso) y no una 
expresión. Puede pensarse de la línea 20 del programa anterior como 
sigue: 20 LET X = X — (2 si se pulsa la tecla “5” y si el valor de X es 
mayor que 1; en otro caso, 0) + (2 si se pulsa la tecla “'8” y el valor 
de X es menor que 30; en otro caso, 0). 

Pudiera preguntarse para qué tantas complicaciones para hacer 
algo que pudiera lograrse exactamente igual con una serie de líneas 
IF... THEN. La respuesta es que si aquellas expresiones se usan ade- 
cuadamente y en las circunstancias oportunas, se pueden sustituir 
varias líneas del programa con una expresión condicional larga, aho- 
rrando capacidad de memoria y posiblemente haciendo que dicho pro- 
grama se ejecute más rápidamente. Además, al familiarizarse con estas 
expresiones condicionales es posible encontrar que algunas veces 
pueden clarificar realmente listados sobre un largo juego de instruc- 
ciones IF... THEN. 

Pasemos ahora a la operación O (OR). 


X o Y toma el valor 1 si Y es no 0 (verdadero) 
y el valor X si Y es cero (falso) 


Supongamos que el cobrador de un autobús desease un programa 
para saber el precio que ha de cobrar a un escolar y que la edad límite 
para la tarifa reducida es de 14 años. 


10 INPUT “ENTRAR TARIFA “;TARI 
20 INPUT "ENTRAR_EDAD "¡EDAD 
30 LET TARIFA=TARIFA* (0.5 OR 

EDAD>14) 

pp+0 PRINT “EL PRECIO ES ";TARI 


Las líneas 10 y 20 piden que se introduzca la tarifa normal de adul- 
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tos y la edad del pasajero. Para entender esto un poco. mejor convir- 
támoslo en un lenguaje más claro: 


SEA TARIFA = TARIFA*(0,5 a menos que la edad sea superior a 14) 


Si la expresión que sigue a O dentro del paréntesis es verdadera, 
toda la expresión del paréntesis toma el valor 1. Sin embargo, si lo 
que sigue a O es falso (edad menor que 14 años), la expresión ence- 
rrada toma el valor que hay delante de O. Este número (0,5) puede 
también ser una variable si se desea. En conjunto, esta rutina no tiene 
mucho que ofrecer en relación con la siguiente: 


30/|FEDAD < = 14 THEN LET TARIFA = TARIFA*0,5 
(Siedad < = 14, entonces sea tarifa = tarifa por 0,5) 


Sin embargo, si se dispone de varias tarifas el método del O (OR) 
puede extenderse para evaluar todas las categorías en una línea. 

“NO X” (NOT X) toma el valor de 0 si la relación X es verdadera, 
y el valor 1 si es falsa. La mejor forma de ilustrar esto es con el ejem- 
plo que sigue: 


10 pia a 
20 INP 
309 BRINTF A; TAB 4;B;TARAE 9;NOTFT 


=B 
40 GO TO 210 


Lo que se verá en la pantalla son los números que se introdu- 
jeron en las líneas 10 y 20, seguidos de un 0 ó un 1. De los resultados 
obtenidos, véase si se puede determinar qué relación entre A y B pro- 
duce los respectivos valores de la columna tercera. Pruébense los 
otros operadores de relación en lugar del signo < de la línea 30. 

Finalmente, echemos una ojeada a dos interesantes pequeñas ra- 
rezas. Considérese primero esta línea: 


10 1F Azx1 THEN 1F B=2 THEN 
PRINT “UERDACERO” 


Es enteramente lo mismo que: 


10 IF A=1 AND D=2 THEN PRINF 
"VERDADERO" 
excepto que ésta requiere memoria extra. Existe una pequeña diferen- 
cia en que si no se ha definido previamente B, la versión que usa AND 
se detendrá con mensaje 2. Sin embargo, si la primera parte de la otra 
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versión es falsa, entonces el programa desatiende el resto de la línea. 
Es posible que se encuentre una aplicación de esto. 

La segunda rareza no lo es tal sino algo que desconocen muchas 
personas. Pruebe estos programas: 


10 INPUT_A 
20 IF A THEN PRINT A 


10 INPU 
20 IF NoT Ba THEN PRINT A 


Es posible que no se espere que funcionen estos programas ya 
que no hay operadores de relación para comparar A con algo. Aquí, 
sin embargo, el valor de A se considera verdadero si no es O, o O si se 
utiliza el NOT. Igual que con todo lo demás de esta sección, experi- 
méntese con los ejemplos hasta que se entienda perfectamente lo 
que hace cada rutina. Se observará que estas instrucciones pueden 
consituir poderosas ayudar de programación, y se verá incrementada 
considerablemente la eficacia en esta actividad. 

Se puede utilizar IF/THEN GO TO para terminar un mensaje de 
“condición de ganador”' después de un cierto número de ciclos. Entre 
y ejecute lo siguiente: 


Q LET X=0 
20 PRINT a GANADO *; 
40 IF X<25 THEN GO TO 20 


Esto asegura que se presente el mensaje “usted ha ganado”' un 
limitado número de veces. 

Como se ha visto, IF/THEN no sólo se utiliza para enlazar con otras 
líneas. Elimine el programa con el enunciado NEW y aplique el 
siguiente. Verá que tiene un efecto similar, aunque el IF... no envía el 
programa a un número de línea. 


10 LET X=0 

LET X=X+1 

IF X:125 THEN PRINT “HAS GA 
có To 20 


Este programa no es tan útil como el otro ya que no termina aunque 
haya dejado de presentar el “usted ha ganado”. Puede fácilmente 
descubrirlo ejecutándolo, pulsando después BREAK (detención) y a 
continuación PRINT X, ENTER. 
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Vale la pena quizá mencionar que el ordenador es un ente bas- 
tante dogmático. Si se especifica que una rama de la programación 
ha de ejecutarse sólo si el valor de Z, por ejemplo, es igual a 6, el 
programa continuará en un bucle sin fin si Z no es exactamente igual 
a 6, no importa lo mucho que se le aproxime (como con 5,999999). Si 
se piensa que el valor pudiera ser fraccionalmente diferente con res- 
pecto al que se establece para la desviación, asegúrese que se espe- 
cifica que el operador de relación debe ser mayor que 5,5, por ejem- 
plo, o igual o mayor que 5,9, en lugar de hacerlo justamente igual a 6. 


IF/THEN/ELSE 


Muchos dialectos del BASIC incluyen la opción ELSE (SI/EN- 
TONCES/EN OTRO CASO) utilizada en la instrucción IF... THEN.. 
ELSE. No existe esta función en el BASIC de nuestro Spectrum pero 
es posible lograr su lógica. Es una variación muy útil del condicionan- 
te IF. El ordenador puede programarse para hacer algo si la condición 
sometida a prueba es verdadera y realizar otra cosa (ELSE) además 
que no sea pasar meramente a la línea siguiente, si la mencionada 
condición es falsa. 

Se puede utilizar la siguiente sustitución del IF... THEN... ELSE 
para producir algunos gráficos muy interesantes. Basta simplemente 
con introducir en la línea 60 la función que se desea representar. No es 
éste el método más eficaz de programación pero es útil como medio de 
demostrar la sustitución de la instrucción que consideramos. Al eje- 
cutar el programa, se calcula el valor de K cada vez que se alcanza la 
línea 60. La 70 busca el valor de K y presenta en la pantalla un O si K es 
igual o mayor que 0,5 y un paro total si es menor que este valor. 
Esto es lo mismo que si se dijese Si (IF) K es igual o mayor que 0,5 
presente un “0”; en otro caso, un ”.”. Cada uno de los distintos grá- 
ficos utiliza diferentes valores de K, generados en la línea 60. La con- 
dición analizada en la linea 70 también varía. Ejecute el ejemplo que 
sigue utilizando el símbolo del gráfico que se desee y después genere 
unos pocos de su invención. Es probable que haya que cambiar la 
escala para ciertas funciones. 


10 REM A DE A 1CO0S 
20 FOR -109 STE 
3Qa_ IF ve>310 AND Yi>- 19. AND Y>- 
2 THEN PRINT " "; 
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G6B>LET K=YxX-XxXx/1.1 
70 PRINT (“8 AND K>)=.253)39+1".” 
AND Kt(.25),; 


Trate de determinar qué habría que poner en la linea 60 para pro- 
ducir el gráfico que sigue: 


p 


IPOPRANUORINSODO 


20000000 Aas2£08£81.404-0u000.0 
LS6oeo .s..¡$2x(xnx::...un. .*.. ..>5 4... 


E A A A A A A 


ua : 
e IR O 
9.7 .S.o.Bd.lolio3.S.7.%. 
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Bucles FOR/NEXT 


Estos bucles son elementos útiles adicionales del lenguaje BASIC. 
Merece la pena que se estudien ahora ya que las últimas series de 
programas dependían en gran manera en tales bucles. El de Y que 
empezaba en la línea 20 y terminaba en la 100; y el de X, desde la 50 
a la 80. Debido a que son ligeramente más complejos que los bucles 
de este tipo más sencillos, no trataremos de ellos de momento. 

Un bucle FOR/NEXT (“Para..., el siguiente”) se compone de dos 
manifestaciones utilizadas para controlar una serie de ciclos en una 
parte del programa. El bucle empieza con FOR y especifica cuántas 
veces ha de ejecutarse. NEXT aparece al final de la secuencia vol- 
viendo el programa a la linea que sigue a la que contiene la ins- 
trucción FOR. 

La instrucción FOR se compone del número de línea, a continua- 
ción el FOR, una variable numérica (una sola letra), el signo igual, 
una expresión numérica (un número o una variable numérica previa- 
mente asignada), la palabra TO (A) y, finalmente, otra expresión 
numérica (el número de la variable numérica asignada anteriormente) 
que es diferente de la primera. Puede parecer esto increíblemente 
complicado. Sin embargo, esto es muy sencillo. 

La línea FOR dice: 


100 FOR J = 1T0 100 
La línea NEXT, que termina el bucle, tiene la forma: 
200 NEXT J 


La instrucción NEXT se compone de un número de línea, la pa- 
labra NEXT (“siguiente valor de...'') y la variable de control que se 
estableció en la instrucción FOR anteriormente. La instrucción NEXT 
se utiliza solamente para decir al ordenador cuándo ha de detenerse 
la secuencia del programa que ha estado repitiéndose. Cuando el 
valor de la variable de control (J) alcanza el establecido en la ins- 
trucción FOR (la segunda variable numérica) el programa pasa por el 
bucle por última vez y continúa en la línea que sigue a la que contiene 
la palabra NEXT. 

Aplique y ejecute este programa: 


10 FOR P=1 TO 10 
20 PRINT TAB 4;PR¿TADB 3;/AxP 
30 NEXT PA 
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ADOJANPUIA 
A] 
1] 


a 
Una 
Oh 
a 


La variable de control es A, y la linea 20 presenta en pantalla A 
y A?. Observese que los limites del bucle de control están explícitos 
en la línea 10 (1 TO 10). 

Préstese atención al ejemplo siguiente: 


= =] 
PS PRINT TAB 45C0;TAB 9;C/-10;TA 


B 214;CR 
50' NEXT C 
5 0.5 1 
6 9.6 1.2 
7 0.7 1.4 
5 0.65 1.6 
9 0.9 1.8 
19 1 2 
15 1.1 2.2 
2132 1.2 2.4 
13 1.3 2.6 
LA. 2.8 
15 1.5 3 
16 1.6 3.2 


Se habrá advertido que en este programa los limites del bucle 
FOR/NEXT son dos variables, A y B, que han sido previamente defi- 
nidas. Encontrará que hay muchos programas donde se deseará un 
bucle FOR/NEXT limitado por los resultados de cosas que han ocurri- 
do en otra parte del mismo. 
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Bucles anidados 


Como acabamos de ver, los bucles FOR/NEXT nos permiten alte- 
rar el valor de una variable (en saltos de una unidad en los casos que 
hemos estudiado) para repetir una serie programada de hechos, 
un cierto número de veces. Supongamos ahora que hubiera dos o más 
variables con las que operar. Entonces sería preciso cambiar el valor 
de todas ellas. Esto puede hacerse fácilmente por medio de los bucles 
anidados, en los que uno de ellos, controlado por una de las instruc- 
ciones FOR/NEXT, opera dentro del otro. 

Ejecútese el siguiente programa que inserta el ciclo B en ¡el A. 


10 REM BUCLES ANIDADOS 
30 FOR A=1 TO 12 

440 FOR B=1 TO 12 e a 
50 PRINT TAB 8; 3" POR "A; E 


*B 
só ÑEXT B 

PRINT 
ES Bore 23692, -1 
90 NEXT 


Al ejecutarlo verá que ha presentado la tabla de multiplicar des- 
de 1 x 1 hasta 12 x 12. Parte de la presentación es: 


5 POR 4 IGUAL £ 32 
3 POR 4 IGUAL A 


11 POR 4 IGUAL A € 


1 POR S IGUAL A 

2 POR S IGUAL A 18 
3 POR S IGUAL A iS 
4 POR S IGUAL A 248 
S POR S A 25 
6 POR S IGUAL A 3e 
7 POR S IGUAL A 35 
8 POR S IGUAL A 468 
3 POR S IGUAL A 45 


En este programa, la variable de control A permanece en uno 
mientras que el bucle controlado por B va de uno a doce. Después de 
la instrucción PRINT (línea 70), la variable de control A aumenta en 
una unidad, y se repite nuevamente el bucle B, con A igual a 2 en 
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esta ocasión; y así sucesivamente, hasta que el bucle B se ha comple- 
tado con A igual a 12. No existe ninguna razón por la que hayan de 
anidarse solamente dos bucles. 

Es de importancia esencial el que las variables de control de los 
bucles anidados se hallen en orden correcto; es decir, el primer bucle 
empezado es el último en terminar. Trátese de intercambiar las lí- 
neas 60 y 90 de este programa y vea lo que sucede. 

Esto es parte del resultado, obviamente no lo que se pretendía. 


1 POR 12 IGUAL A 212 
2 POR IGUAL A 25 

3 POR 14 I6u1 H 42 

4 POR 15 IGUAL A 60 

S POR 16 IGU A ua 

6 POR 17 IGUAL A 2192 
? POR 18 IGUAHE A 125 
£ POR 19 IGUAL A 152 
9 POR 20 IGUAL A 2159 
19 POH Sat 2.19 


THAI AQ 
11 POR 22 IGUAL A 242 
12 POR 23 IGUAL A 276 


Utilicese la misma variable para cuantos fines quiera, especial- 
mente cuando se empleen bucles FOR/NEXT. No se emplee otra letra 
como nombre para un segundo bucle si ya se ha terminado con el 
previo, pues con ello se derrocha capacidad de memoria. 


STEP 


Para el siguiente tema a tratar tendremos que echar mano del 
programa introducido anteriormente y denominado “Tabulador lan- 
zamiento de cohetes” 

Las líneas importantes de este punto son la 30, 40 y 70. Observará 
cuando ejecute el programa que aparecen en la pantalla los números 
del 10 al 1. La palabra STEP ('escalonamiento””) en la línea 30, des- 
pués del 1 controla esto. Cámbiese el — 1 que sigue a STEP por —2 y 
vea lo que sucede. Si no se especifica el valor que acompaña a STEP, 
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el ordenador supone que se desea un STEP positivo de valor unidad, 
que es lo que ha ocurrido en los ejemplos anteriores. 

La instrucción STEP se utiliza, pues, en los lazos FOR/NEXT para 
permitir al usuario especificar el valor del incremento (o decremento) 
de la variable de control. STEP no tiene por qué ser siempre un nú- 
mero entero aunque hay que asegurarse de que STEP sea negativo 
si el número que sigue a la palabra TO en la instrucción inicial FOR 
es inferior al que se halla delante de ella. Ensáyense los siguientes 
ejemplos: 


10 FOR A=16656 TO _ 1 STEP -12.5 
20 PRINT TAB B;A 
NEXT A 


Q FOR A=10B8 TO 21 STEP -0.175 
Q PRINT_TAD 8S;R 
Y NEXT A 
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En el bucle FOR/NEXT, STEP no tiene necesariamente que ser un 
número entero; puede ser una fracción, decimal, o el resultado de un 
cálculo y no tiene que alcanzar exactamente el valor límite del bucle. 
La secuencia se repite mientras el valor sea menor o igual al límite. 
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No puede cambiarse fácilmente el valor del STEP durante el curso de 
un bucle. Si ya se ha excedido el límite, el bucle será totalmente igno- 
rado: 


10 FOR F=1 TO Q 


Podrá utilizarse esta idea para impedir bucles si se dan ciertas 
condiciones. Por ejemplo, si no se desease el trazado de una raya negra 
cuando X fuera igual a 6: 


10009 FOR F=(X=6)8353 TO 31 
3010 PRINT_CHR* 143; 
1029 NEXT F 


La prueba para averiguar si se ha excedido el valor límite se hace 
en la línea que contiene la instrucción FOR. Un interesante experimento 
es probar un valor O de STEP. Nunca se incrementa la variable de 
control y, por consiguiente, el bucle no termina nunca. Es posible 
saltar de los bucles FOR/NEXT sin problemas pero no se puede en- 
trar en ellos a menos que se haya establecido la variable de control 
(efectivamente si se ha utilizado aquel ciclo con anterioridad). En 
un bucle FOR/NEXT se salta desde el NEXT hasta la línea 5iguiente 
a la de la instrucción FOR. Algunas versiones del BASIC permiten 
omitir la variable después de NEXT y entonces se incrementa la va- 
riable de control más reciente. Debe especificarse tal variable al orde- 
nador. 


GOSUB y RETURN 


Una subrutina es una porción de programa, dentro de un programa 
mayor, que realiza una tarea específica. El programa principal se eje- 
cuta línea por línea hasta que se hace una llamada a una subrutina 
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mediante la instrucción GOSUB. El ordenador apela al número espe- 
cificado y empieza a trabajar por orden de instrucciones desde tal 
punto que llega a la palabra RETURN. Esta es la señal para volver 
al programa principal en la línea situada inmediatamente después 
de aquella a la que le envió a la subrutina. 


La subrutina es útil si un determinado conjunto de cálculos tiene 
que realizarse un cierto número de veces en un programa y en distintos 
lugares del mismo. Por ejemplo, en un programa financiero puede 
haber un número de cálculos sobre impuestos en distintos lugares del 
programa. Cuando aparece la necesidad, el programa es enviado a la 
subrutina mediante el GOSUB y allí permanece hasta que encuentra 
la palabra RETURN, regresando entonces a la linea inmediatamente 
posterior a la de la instrucción GOSUB. 


Una subrutina se escribe exactamente igual que el programa prin- 
cipal, con la particularidad de que se trata de un programa dentro 
de otro y está limitado por dos líneas, la del GOSUB y la del RETURN. 
La instrucción GOSUB se compone de un número de línea seguido 
de GOSUB y de otro número de línea. Ejemplo: 40 GOSUB 100 indica 
que hay un desplazamiento a la línea 100 y que se continúe la ejecu- 
ción del programa ordenadamente a partir de dicha línea. Es lo mismo 
que si se hubiera dicho: 40 GO TO 100 (*'Ir a”). Sin embargo, cuando 
se alcanza la línea que tiene la palabra RETURN, la acción revierte 
al programa principal en la línea que sigue a la que contiene la ins- 
trucción GOSUB (en este caso, el primer número de línea después 
de 40). 


A continuación tenemos un sencillo ejemplo mostrando GOSUB y 
RETURN. Ejecútese varias veces para regresar al libro con objeto de 
tratar de este tema. 


Su número es 234 
234 al cuadrado es 54756 


Su número es 23,76 
23,76 al cuadrado es 564,5376 


Su número es 4 
4 al cuadrado es 16 


Su número es 33 
33 al cuadrado es 1089 
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10 REM_GOSUBD RETURN 

20 PORKE 23609,100: ne INCLUIR 
PITIDO AL PULSAR TECL 
30 INPUT "ENTRAR UN ÑUMERO “¡A 
40 GO SUB _ 100 


Go To 38 
S0 REM SIGUE SUBRUTINA 
a RINT “*"TU UMERO ES ";A 
O PRINT A" A CUADRADO ÉS “; 


Vd RETURN 


La línea 30 pide un número, la 40 transfiere el control a la subrutina 
que empieza en la línea 100. Los cálculos requeridos son realizados 
y presentados los resultados, en la subrutina y después la línea 120 re- 
torna el control a la línea inmediatamente posterior a la que envió el 
control a la subrutina, es decir, la 50. Como ésta tiene la instrucción 
GO TO (“Ir a”*), la acción vuelve a la línea 30 que pide un nuevo nú- 
mero, y el ciclo vuelve a empezar otra vez. 

Ejecute el siguiente programa que enfrenta a dos submarinos en 
una carrera. Con él veremos una subrutina haciendo algo un poco 
más interesante que lo del programa precedente. 


10 San A 5 UNA_CARRERA 
15 PAPER : RDER 5: CLS 
20 CET A hi 


30 LET ORDENADOR=29 
LET HOMBRE=28 


LET_X=5 
55 BEEP .01,RNDx59 
SUB 100 
7 LET X=10 
75 BEEP .01,RNDx50 
SUB_109 


50 GO 

23 52 

19 x=5 THEN LET ORDENADOR=0 
RDENADOR-RND: P FT X,ORDENAD 
OR; INK 6;A%5: IF ORDENADOR<2 THE 
N PRINT AT 6,0; PAPER 6; FLASH 21 
ÍS BRIGHT 1; “ORDENADOR GANA": STO 

110 IF X=1D THEN LET HOMBRE=HOM 
ERE-RAND: PRINT_ AT X.HOMBRE; _INK 
25A%: IF HOMBRE<2 THEN RT 
2,0; PAPER 6; FLASH Lo AOMBRE GA 


120 RETURN 


Hay dos submarinos en la pantalla. El que está encima es el del 
ordenador y el de abajo es el suyo. Pulsando RUN y ENTER, el sub- 
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marino se desplaza a través de la pantalla, de derecha a izquierda. 
Cuando uno o el otro alcanza el margen, el programa se detiene pre- 
sentando en pantalla el mensaje ORDENADOR GANA u HOMBRE 
GANA, según sea el caso. 

Obsérvese que'el submarino A$ se extiende en más de una línea. 
Siga pulsando la tecla SPACE una y otra vez cuando haya compuesto 
la parte del periscopio del submarino. Tenga en cuenta que hay un 
espacio después del extremo derecho del submarino. Resulta muy im- 
portante, como descubrirá si lo suprime. 


Sonido 


La instrucción BEEP del Spectrum puede utilizarse para dar más 
relieve a los programas, añadiendo sonidos apropiados cuando son 
destruidos los alienígenos, cuando rebotan las pelotas en la pared o si 
se logra vencer al ordenador en un juego de habilidad. 

A primera vista pudiera parecer que un sonido de una sola voz, en 
un canal, carente de acompañamiento, que detiene las restantes 
acciones del ordenador cuando está en funciones, es bastante limi- 
tado. Puede, sin embargo, emplearse para añadir un sorprendente 
grado de interés a los programas. 

Se dispone de la posibilidad de una pequeña extensión para alta- 
voz en el Spectrum si se conecta en la clavija auricular (EAR). Aun- 
que no aumenta mucho el volumen, se cuenta con una segunda fuente 
de sonido que puede mejorar la efectividad sonora del ordenador. 

La instrucción BEEP (presionando ambas teclas SHIFT y mientras 
se mantiene la presión sobre la roja, se pulsa la de la letra Z) tiene dos 
parámetros (es decir, hay que poner dos números tras la palabra 
BEEP). El primero corresponde a la duración de la nota que se pro- 
duce y el segundo expresa el tono. 

Se tendrá idea de la clase de sonido que produce ejecutando la 
siguiente rutina de “música aleatoria”: 


S REM MUSICA ALEATORIA 
18 BEEP_ RNDI/RNDI3, ANDASO-35 
12 BORDER RNDx7 
1595 BEEP RNDYyRND+2,RND+*80-45 
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20 BORDER RND>+ 
25 BEZP END/RNG/3, RND:1350-565 
30 ds RND 7 


ads 5 E a a RND+408-S 
50 GO 


El resultado de utilizar la instrucción BEEP en un bucle o en un 
par de ellos, puede ser muy interesante como se comprueba con la 
siguiente demostración: 


10 REM MUSICA EN BUCLES 

20 FOR A=-608 TO 68 

38 FOR B=.81 70 .8323 STEP .81 
SEEP dd BEEP B,A+-10:1B: SE 


SO NEXT B 
60 NEXT A 


Los BEEPs producidos aleatoriamente suelen ser interesantes si se 
mantienen entre ciertos límites: 


14 LEFT TONO=INT (RARNDx24)-12>5 
0 LET DURACION=tINT (RAND+B83 >+1 


BEEP DURACION,TONO 
29 IF RND>=.>? THÉN 60 TO 38 
sa GD 10 


Como se hace constar en el Manual del Spectrum, ciertos números 
de tono producen determinadas notas musicales; por ejemplo, O para 
el DO central (C) y el 12 para el DO, una octava por encima, el —3 para 
dos notas por debajo del DO central. E! programa siguiente convierte el 
Spectrum en un vibráfono en el que se utilizan las teclas de la hilera 
del fondo para producir las notas (en la clave de DO): DO (tecla Z), 
RE (tecla X), MI (tecla C), FA (tecla V), SOL (tecla B), LA (tecla N), 
Sl (tecla M), DO (tecla K). Las notas continuarán produciéndose mien- 
tras se mantenga pulsada la tecla. 


20 REM PIANO 
20 LET A=CODE INKEYS 
30 1F A«<GOS OR A>20 THEN GO TG 


90_LET B=12% (A=753 +2% 1A=89) +4 £ 
A A 
=P7 
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59 BEER .24,B 


1F INREYS$c>"" THEN 
30 GO TO so. SA 


Una vez se haya dominado esto se puede añadir un poco de color 
para acompañar a las notas con la variación que sigue (se ha agregado 
la línea 70 al programa precedente): 


haa pen PIANO 
A=SCODE INKEY$ 
Se =P ASS OR A>90 THEN GO TO 


LET B=12% (A4=75) +2% 10=08) +4 74 
Ca +7RIHA=00) -DtHA=75D 


67 

15 

vo BE 

o IF AAA EN THEN _ GO TO 50 
[o] Toda PAPER BD-2: CL5S 


Si se encuentra demasiado fatigoso tocar el vibráfono del Spec- 
trum, se puede lograr que el ordenador lo haga por usted. Como se 
ve en lalínea de datos (DATA), el “bien afinado Spectrum“utiliza la 
escala del DO natural. 


20 REM  +**x* EL BIEN RFINADO 
SPECTRUM  —*x* 
20 DIM AS) 
Q2 FOR B=1 TO e 
20 READ A(B) 
50 NEXT E 
70 LET B=INT ¿RND+9D) +1 
75 LET M=(INT (RND*4)+2)/10 
50 BEEP M,A(B) 
S IF RND>+9 THEN 60 SUB 110 
90 60 TO ?0 
100 DATA 0,2.039,3.56,4.95,7.02 
,3.84,10.85,12 
110 LET Z=RND 
112 LET M=A(1) *1Z>=.5) +A18) 2 (Z< 
115 BEEP 1,M 
120 PAUSE 25 
130 RETURN 


Veremos muchos ejemplos de la utilización de la instrucción BEEP 
en los programas de este libro que proporcionarán ideas de sonidos 
que pueden añadirse a sus propios programas. 

El último programa de esta sección es uno en el que el sonido es 
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un ingrediente importante y no solamente un acompañamiento. En 
esta variación del programa SIMON, el ordenador escoge un número 
entre uno y cuatro y lo sitúan en la pantalla con un sonido BEEP nota- 
ble y un destello de color. Se tiene que pulsar el mismo número. El 
ordenador repetirá entonces el suyo añadiendo un segundo. A conti- 
nuación usted ha de repetir ambos números en la secuencia correcta. 
Si el ordenador selecciona el mismo número dos veces seguidas, 
usted tiene que pulsar su tecla dos veces, soltando brevemente la 
tecla entre cada pulsación. Se gana el juego si es posible recordar 
correctamente una secuencia de siete cifras 


1 REM ex 
s LET A F=” .» 
10 FLASH 1 
20 PAPER 7 
20 FOR A=1_ TO 
32 PRINT AT 10,10; "PREPARADO" 
SS DORDER RND7 


Pa LET AS=AS+STRS (INT (RND*4) 
+ 
45 PAUSE 5 
NEXT 


50 A 

55 FLASH 0: CL5 

64 LET X=12 

70 FOR QO=2 TO X 

72 LEF RO ee 03 -45)7 
73 LET T=UAL ai 

75 DEEP .05,10 


¿50 PRINT AT L, ">; > 
-h O? A RP 
> 


pi id + 
AUSE 


120 FOR B=1 x 
122 IF INKÉY E >" THEN GO TO 212 


LET TS=INKEY $ 
SL CODE T$=0 THEN GO TO 123 


5 
LET Y=4* (CODE TS-45) 
30 PRINT AT Y 7; INK Y/4;' a 
ES E 
145 BEER 24 
146 _X1F o 
EN Go To 308 
247 PAUSE 


148 CLS 
159 MEXT D 


*Y 
$: Sóboe (A$1D3)3 TH 
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1F_ X=? THEN PRINT_ "HAS GANF 


e RND+7?: PAPER RND+?: 


LET_ X=X+21 
PAUSE 50 
S50_TO 709 
PRINT_ "PUNTUACION "¿X-1 
BORDER_RND=*Y 
PAPER RND=7? 


CcLSs 
BEEP .02,RND*50 
GO TO 300 


Definición de funciones 


Mediante DEF FN se pueden definir funciones en un programa 


y después utilizarlas cuando sean precisas para su ejecución. DEF FN 
permite ahorrar espacio y tiempo ya que cálculos complejos pueden 
ser definidos con un nombre corto y cuando son precisos se les 
recupera por ese nombre. 


Hay cuatro cosas que definen la función: 


La palabra DEF. 
El nombre de la función que se compone de las letras FN seguidas 
por el nombre (una letra si se trata de una función numérica, una 
letra y el signo $ si es una función de cadena alfanumérica). 

El contenido de la función que sigue al nombre, entre paréntesis. 


— La fórmula, utilizando el contenido, para el cálculo de la función. 


Observe este programa. 


pp 


ll) 


10 REM DEFINIR UNA FUNCION 
20 DEF FN _ P(Z)=Z3xZ 

3u IMPUT Z 

490 PRINT Z,FM PAZ 

50 G0 TO 38 


Esto suena más complicado de lo que realmente es en la práctica. 
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239.765 554 .5375 
1111 1234321 
44 q36 

345 11390825 

4 12 

11 121 


La línea 20 define una función A, con el contenido Z que, en este 
caso, es 22. Por consiguiente, siempre que el programa llega a la 
expresión FNA(Z), calculará el cuadrado del valor asignado a la varia- 
ble Z. Puede verse esto en la demostración. 

En el siguiente programa, denominado MURCIELAGO, se define 
una función en la línea 70. La función produce la raíz cuadrada de la 
diferencia entre el cuadrado de dos variables, y en la rutina compren- 
dida entre 120 y 210 utiliza el valor H (véase línea 130) para determinar 
las posiciones de presentación de los puntos que dibujarán el mur- 
ciélago. 


19 REM MURCIELAGO 
20 REM AS DEL DEF FI 


40 LEF P=10 
50 LET 0=17 


LET B=BD 
Se DEF FN PBI=SOR tL+L-B28) 
sa P 6: 


190 PRINT AT P-B,0+H;” 
200 BEEP .02,S0+H 


210 MEXT B 
224 IF e A co TO 18 
230 PRI INK 2¡AT 9,186“. ,” 
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[a] 


La sentencia DIM 
y los conjuntos (arrays) 


La sentencia DIM se utiliza para establecer una lista o relación a 
la que se pueda tener fácil acceso. En algunos programas es posible 
necesitar referirnos a elementos de una larga lista de números, como 
cuando se introduce (INPUT) una cantidad de datos (DATA) y desea- 
mos utilizarlos de una cierta manera, como puede ser su presentación 
en la pantalla en un orden o magnitud. 

Un conjunto (array) es una serie de espacios de memoria reser- 
vados en el ordenador y a los que referimos por el nombre del con- 
junto y por un subíndice. Para obtener conjunto que albergue tres 
elementos se introduce la sentencia DIM A(3) que proporciona espacio 
para un conjunto denominado A. Para albergar cuatro elementos se 
entraría DIM B(4). 

Ejecute el programa siguiente que hará un poco más comprensible 
lo mencionado. 
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10 REM +2 DEMOSTRACION DE OSCE 
NADORES 
28 DI 


: L 
Y PRINT TAB 6;"B1t",A0,"1 ES ”, 


ES 
ES 
ES 
ES 


AJ00 


Como se ve en la línea 20 el ordenador necesita que se dimensione 
un conjunto antes de poder utilizarlo. Esto se hacé con la instruc- 
ción DIM, que se compone dé un número de línea seguido por dicha 
palabra y el nombre del conjunto con su tamaño incluido entre parén- 
tesis. 

Los conjuntos de los que hemos estado hablando hasta ahora son 
unidimensionales, adecuados para hacer cosas como acoger una lista 
de números. Sin embargo, puede haber conjuntos que tengan más de 
una dimensión, que se denominan, con bastante razón, multi-dimen- 
sionales y que se establecen con la sentencia DIM y con más de un 
subíndice. Ejecútese el siguiente programa: 


140 REM BETA MULTI- 
IONALES 


1 TO 4 
60 LE O =INT — (ANDS9) +1 


A AN ES Ed 


B 
100 PRINT AT 16, 5 “dl. .2 3 4” 
118 PRINT 


118 FOR S=1 TO, 
128 PRINT TAS ¿AB 
17% "AB, 2) 15/2109 ¿A 16? 


130 NEXT 85 


Cuando se ejecute se verá algo como esto: 
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IDIDPDODIIDDVLVDD 

A 
m0 

PRDOVAOAADINASAA 


PRREOONODNONA Rp 


1234 
157760 
2 29865 
33357 
4 56922 


Los elementos de un conjunto estarán constituidos, en primer lu- 
gar, por números del uno al nueve que son presentados por la línea 70, 
de forma que puede verse lo que contiene cada elemento de dicho 
conjunto. La pequeña tabla que se presenta a su lado muestra cómo 
tales elementos están Organizados. Cada uno de ellos es localizable 
en función de las coordenadas del conjunto. Siendo así, el elemen- 
to (3,3) se encuentra donde ambos números se intersectan, es decir, 
en el debil Observando la lista se comprueba realmente que 
el A(3,3) es igual al 8 ? 

El dimensionado de los conjuntos consume memoria por lo que 
no debe hacerse mayor de lo necesario. El número de elementos en 
un conjunto es el producto de los dos valores comprendidos dentro 
del paréntesis; así, un conjunto o matriz A(4,4) tiene 16 elemen- 
tos (4 x 4). En nuestro ejemplo puede comprobarse. 

No hay razón para que no haya conjuntos con más de dos dimen- 
siones, excepto por el hecho de que se hacen muy difíciles de ma- 
nejar y el número de sus elementos aumenta alarmantemente. He 
aquí un programa para dimensionar y completar un conjunto tridimen- 
sional. Aunque se trata sólo de A(3,3,3) puede verse que el número 
de elementos es muy grande (3 x 3 x 3). 
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a A ...y 


. 
+ 


(RNDeS7 +1 


SONNERIE SUN A o 
10 y Y 0) Y) W) VW Y) 4) 1) 10 40 Y) 10 Y) YA 
AAA A ul 


MY) 6) dd MaS ha 0 LA dd dad 
APDO A e 0 404 00 0 00,0, DA e 00 00 00 A 
ANDA AOALAO AA TANO AO 


250239999959 ss hh 


ANNA RANA MNONORARNANUO AN 


AS 


AnAANURNMUANANSUNDAN Nan 


COTECCa laca raclracaaaa 


Increméntese el número de dimensiones a cinco, como en nuestro 
ejemplo siguiente, y aunque se trata sólo de A(2,2,2,2,2), existen 


ahora 32 elementos (2>). 


OFNRANAAOSIDOIÓNON OA 
Ny 011040 10 4) 07 40 Y 

AAA AAA APA At 

0 m0 ra rd, e és e, 
dasaadanadddadada 
AAA aendarnaaa Arnold ee 
Arnet Ae el 
O 
terre rin COOL O O O ee 
dei ed rinde A O 


hal Sur ud e a? Sal ed dad ud "ed "al "ed 6d ul 0d Vd ad 


coda rar araaadaduaaa 
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A(2,1,1,2,1) ES 3 
At2,1,1,2,2) ES £ 
41(2,1,/2,1,1) ES 3 
At2,1,2,1,2) ES 2 


2 DIMENSIONALE 
30 DIM A(2,2,2,2,2) 
40 FOR TÓ £ 


2 
5650 LET AB,C,D,E,F)=INT (RNDS9 


E 
70 PRINT "AC";B; 0; E 
E As ES ate! as p! e! 2 


Rompecódigos 


He aquí el juego ROMPECODIGOS como demostración del em- 
pleo de un conjunto unidimensional. Es muy fácil jugar con este 
programa. El ordenador “piensa” en un número de cuatro dígitos y 
el jugador tiene diez oportunidades para averiguarlo. Una cifra correcta 
en posición equivocada produce un “blanco”. Si la cifra y la posición 
son acertadas se produce un “negro”. 


18 REM ROMPE-+CODIGOS 
20 DIM C(4) 


(4) 
40 PRINT *** PAPER 2; INK 6;" 
ESTOY PENSANDO UN NUMERO ”. 
59 PRINT PAPER 2; INK 6;” DE 
CUATRO CIFRAS QUE DEBES " 
SQ PRINT PAPER 2; INK 6;" ADI 
UINAR EN 14 INTENTOS, " 
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PRINT PAPER 2; INK de LAS 
FER _2¿ INK_6;", PUL 
ÉMPE 


cL 
110 LET C(1)=INT (RND*x9) +1 
OR Zz=2 TO 4 

ET C(Z21=INT (RND*+9) +21: BEE 


Z) 
Poio iz Ínen 00 70 19 
NEXT | . 
EXT 
9 FOR G= 
208 PRINT PAPER 1; INK 7; 
"ENTRA TU INTENTO NUM. ";6;" 


F 
6 
“E 
IP 


1 TO 10: BEEP 2:06 
¿TAB 5; 


TO 4 
240 LET G(Z)=A-10*1INT (Ars10) 
2508 LET_ A<INT (A/10) 


TO 4 
3G(Z) THEN GO TO 
1: BEEP .02,10:%xB 


eta NO “PD 
e 


TO _4 

5 =2 THEN GO TO 4009 

370 IF CU) <> 610) THEN GO TO 

390 LET_U=4W+1: BEEP .02,7:x4y 
EXT 


xT_z 
420 PRINT INK 2;A1;" PUNTOS “; 
. . NEGR ul. 


430 1F B<>1 THEN PRINT "s"; 
Eto PRINT O", "3 INK 24;" BLANC 


450 e H<>1 THEN PRINT "S"; 
460 INT 
70 3F-B=4 7 Pd Ls yes il ADIV 


R 
K 230(41;C1(31;01(23;C(1) 
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Conjuntos de cadenas 
o variables alfanuméricas 


También puede trabajarse con variables alfanuméricas en forma 
similar a cómo se hace con las numéricas. Ejecute el siguiente pro- 
grama para ver esto en la práctica; aplique cuatro palabras (cada una 
seguida de la instrucción ENTER). 


10 REM CADENAS 

26 DIM A$(4,10) 

30 FOR B=1 TO 4 

20 INPUT A$(B) 
NEXT 


650 FOR B=1_ TO 4 
70 PRINT_"As(";D;3") ES "¡AS (BD) 
NEXT BD 


ESECHO 
ES INGLATERRA 


Aunque el segundo número de la instrucción DIM (en este caso 10) 
tiene que proporcionar capacidad para la cadena más larga que se 
pretenda introducir, sólo es necesario especificar el primero de tales 
elementos (como en la línea 70) para la presentación de toda la cadena. 

Obsérvese que la diferencia principal entre un conjunto en cadena 
y uno numérico es el signo de dólar que sigue inmediatamente a la 
letra. Esto dice al ordenador que el nombre se refiere a una cadena 
alfanumérica. 

He aquí un programa para ordenar alfabéticamente una cadena. 
Como se establece y como se demostró en el ejemplo anterior, el 
programa está adaptado para cinco palabras; si se desea que sean 
más, hay que cambiar el 5 de las lineas 20 y 40 por el número de pa- 
labras que haya que clasificar. 


16 REM CLASIFICACION DE CADENA 
20 DIM Us$s(5,10) 
30 LET B=WY 
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ES 
98 
ar 
97 


PRI 


7 


GO TO_ 1909 
Z3) THEN GO TO 1 


00024 VERGA 
09505088 0989009909 


apa pa pa O papa ja 


REYERT 
RIGORISMO 
ROLAR 


El manejo de cadenas 


Nuestro estudio sobre los conjuntos de cadenas (string arrays) 
nos conduce directamente a estas cadenas alfanuméricas y a su ma- 
nejo. Como seguramente ya se sabrá, una cadena es un conjunto de 
caracteres alfanuméricos encerrados entre comillas (incluyendo síim- 
bolos y espacios, si se desea). Se asignan a una variable cuyo nombre 
es una letra seguida del signo de dólar. Con las cadenas se procede 
de la misma forma que con las variables numéricas, por medio de una 
instrucción de la forma LET A$ = “HOLA”. 

Existe un cierto número de funciones de estas cadenas que son 
muy útiles y que pueden utilizarse para su manipulación y para la 
extracción de partes de las mismas. Estas funciones son: 
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CODE X$ (Código) 


CHR$ 


XS(TO 3) 


LEN X5$ 


X5$(n TO m) 
(n a m) 


X5$(3 TO) 


STR$ A 


VAL X5 


Proporciona el código del primer carácter o letra 
de la cadena X$, de forma que si X$ se iguala 
a la palabra MICRO, por ejemplo, CODE X$ nos 
daría 77. 

Podemos comprobar si realmente 77 es el código 
de la primera letra de X$ (es decir, si es el código 
de M) pidiendo al ordenador que presente en pan- 
talla el carácter 77 (PRINT CHR$ 77). Esto nos 
produce una M. En efecto, CHR$ es la función 
opuesta a CODE y convierte de nuevo el código 
en un carácter. 

Esto nos da una cadena que contiene los N ca- 
racteres de la izquierda de la variable alfanuméri- 
ca X$. Así pues, XS(TO 3) nos dará “MIC”. 

Esta función nos da la longitud (número de ca- 
racteres) de una cadena; usando la que hemos 
establecido X$ de “MICRO”, tendríamos en res- 
puesta a LEN X$, de 5. 

Esta función produce una cadena derivada de la 
X$ que incluye los caracteres comprendidos en- 
tre n y m. Empezando por el que ocupa el lu- 
gar n.X$(2 TO 4) nos da: “ICR”. 

Es la opuesta, como podría esperarse, de la 
X$(a n), y nos da los caracteres de la derecha 
de la cadena. X$(3 TO) nos produce “CRO”. 
Convierte una variable (numérica) A en una ca- 
dena, así que si la variable era 234, la versión alfa- 
numérica será “234”. 

Esto no parece ser de mucha utilidad pero per- 
mite cierta manipulación con números cuando 
son cadenas lo que sería extremadamente difícil 
en su forma numérica. Volveremos sobre esta 
función con más detalle próximamente. 

Es la opuesta de STR$ A y convierte el valor nu- 
mérico de la cadena en un número. 

VAL X$, donde X$ es igual a 22 + 34”, pro- 
duciría 56. 


A continuación se presenta un listado mostrando las funciones de 
cadenas en operación. 
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10 PRINT "L AxOR ='*MICRO'" 
30 PRINT “C Xx 5 

| 792 "¡HRS 77 
50 PRINT PRES TO A: (3 TO 
68 PRINT “"x$( TO 3)=";XS1 TO 3 


PRINT "LEN X 5 
PRINT "ie 5 Pr be TO 


PRINT 050 e 


OZ ¿VAL X8 
PRINT “LEr Xes 


L X=34, 
PRINT “eEr, X2uBTRO xXx” 
PRINT ad e 


> 


DUAONRDOT-OS 
958998995 SS 
pa 
AS 
De 


o 
o 
m 
pS 
ñ 
d 
J 


SRSAEEISES 
n] E 
XX Xx 

[u] 

E 

4 

al 

1] 

pa) 


El empleo de la función LEN 
(longitud) 


Si se desea presentar (PRINT) un cierto número de determinado 
carácter, por ejemplo, si se quiere dibujar una línea de trazos ('*—”") 
para hacer un subrayado, existen dos métodos. Por descontado, 
diferentes encabezamientos requieren distintas longitudes, por lo 
que se precisa saber cuántos caracteres hay que presentar. Si se 
trata de una cadena, como A$, se utiliza la función LEN para conocer 
la longitud de tal cadena A$, viniendo ésta expresada en el número 
de caracteres que hay que presentar. 
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10 FOR A=1 TO LEN AS 
20 PRINT_"-"; 

30 NEXT_A 

40 PRINT 


La línea 40 desplaza la posición PRINT a la siguiente para conti- 
nuar. Omítalo si no es necesario. El siguiente método es mucho más 
rápido y emplea sólo una línea de programa. 


18 PRINT - _  _  _—_— 
e o e iaa A OL A 


La única desventaja es que se precisa especificar cuántos carac- 
teres se requieren entre las comillas aunque nunca lleguen a presen- 
tarse. Es decir, se necesita conocer la longitud máxima que puede 
alcanzar A$ de forma que pueda ponerse tal número de caracteres 
en la constante de la cadena entre comillas después de PRINT. 


El empleo 
de la función STR$ 
(string = cadena) 


Esta función es muy útil y con frecuencia es olvidada. Como se 
dijo unas páginas antes, esta función convierte un número en su 
cadena equivalente tal como aparecería cuando se ordena su presen- 
tación en pantalla. Pruebe este programa: 


10 PRINT E 

290 PRINFT STARS 2 

30 PRINT 1/3 

40 PRINT STR>5 113) 
Se PRINT SES 

6a PRIMT STA SEIS 


Se obtendrían estos resultados: 
113 


Podemos aprender mucho de estos ejemplos. La cadena que ge- 
nera STR$ es la misma que se obtendría si con la instrucción PRINT 
se ordenara la presentación del número que constituye el contenido 
de STR$. Segundo, los números menores que 1 se asignan a una 
cadena con un O delante de la coma decimal, siempre que el pri- 
mer dígito después de tal coma no sea cero (es decir, el número sea 
igual o mayor que 0,1 y menor que 1), y puede haber hasta ocho cifras 
decimales. También pueden ser menos si no se precisan todas. Es 
posible un total de hasta diez caracteres en toda la cadena. Sin em- 
bargo, si el número al que se aplica el enunciado STR$ tiene más de 
ocho cifras decimales se redondea en la octava. Ejemplo, 
STR$.3333333339 es ''0,33333334". STR$ también es capaz de 
generar notación científica (del que, como se recordará, hemos tra- 
tado anteriormente), tal como 9E + 15. Obsérvese que, aunque el 
ordenador acepta 9E15, STR$ lo asigna como 9E + 15, es decir, que 
el exponente siempre lleva signo. Los números muy pequeños como 
el 0,000009 son asignados así: STR$ 0.00000009 es “'9E — 7”. Cuando 
se utiliza STR$, es aconsejable limitar los valores del número de forma 
que la función no empiece a utilizar la notación científica pues puede 
causar problemas. 

Seguramente se estará pensando ahora; está bien.., ¿pero qué 
puede hacerse con esto? 

La aplicación principal es convertir números en cadenas alfanu- 
méricas, de forma que puedan utilizarse las facilidades del ordenador 
para manejar estas cadenas en la formación o redondeo de un deter- 
minado número de lugares decimales u otra finalidad por la que sea 
preciso determinar una cantidad, cifra por cifra. He aquí unos pocos 
ejemplos de aplicación de STR$. 


(1)  Alinéense las cantidades decimales. Supongamos que se dis- 
pone de una lista de números que hay que presentar en pantalla. 
Pruebe este programa: 


19 LET A=RAND+1008 
20 PRINT A 

30 LET_ A=AxX10 

40 609 TO 20 
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Se obtendría algo parecido a esto: 


3.591543 
55.81543 
659. 1543 
55891.543 
95915.43 
3959154 .3 
591543 
85815439 
6.581543E+8 
.«591545E+9 
58.581543E+10 
5.581543E+11 


Sería mucho más fácil de leer si se pudieran alinear las cifras deci- 
males y esto es frecuentemente muy útil. Ensáyese esta rutina: 


79.025269 
790. ná 


=RANDx100 
TAB 15-LEN STRS INT A 


Produce un espaciado tal que los puntos decimales aparecen 
uno debajo del otro. Esto es adecuado para presentar una lista de 
números que se desea comparar rápidamente. ¿Puede verse cómo 
funciona el programa? Supongamos que el valor de A era 69,433594. 
Lo que hace el programa es tomar la parte entera de A (INT A, que 
es 69), la convierte en una cadena (STR$ INT A) y después mide su 
longitud (LEN STR$ INT A) que en este caso es 2. A continuación 
utiliza este número para determinar cuánto se ha de desplazar a la 
izquierda el comienzo de la presentación para el valor de A. Observe 
cómo se hace esto. 


TAB 15 — LEN STRS INT A 


Esto significa que 15 es la localización en la que se va a situar la 
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coma decimal (punto decimal en el ordenador) y después cuenta hacia 
la izquierda el número de cifras enteras de la cadena (STR$ INT A). 


(11) Hágase una presentación en pantalla con un cierto número de 
espacios decimales. Con frecuencia se precisa presentar, digamos, 
tres espacios decimales. Se recordará que el ejemplo anterior presen- 
taba números con todas las cifras conocidas. Se puede utilizar STR$ 
para establecer cuántos números se van a presentar después de la 
coma (el punto en el ordenador). Considérese esta rutina: 


1993.4863 


ed; 


STRS A 
)="."” THEN LET As=”- 
EN STR$ INT VAL AS 

15-B¡(A8+ (2." AND 
+0 B+4 


De esta forma se presentarán tres cifras decimales, añadiendo 
el O de delante y los que van detrás, si es preciso. Para hacer que 
se presenten Z cifras decimales, háganse los cambios siguientes en 
la línea 27; añádanse tantos espacios a A$ como números decimales 
se requieran (es decir, Z ceros) y si se hace la instrucción de división 
de la cadena (TO B + 1 + 2). 

Sigue la explicación línea por línea: 


La línea 10 establece el valor de A con el que empezar. 
La línea 20 convierte A en una cadena. 


La línea 22 añade un O delante del primer carácter si es un punto 
decimal. Desgraciadamente la función STR$ no es uniforme en su 
acción porque, a veces, proporciona un O delante de números me- 
nores que 1 y a veces no, según que el primer dígito después del punto 
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decimal sea O o no lo sea. Por consiguiente es una cuestión sencilla 
comprobar si se requiere un 0 o no. Si el primer carácter es un punto 
decimal, añádase un 0. 


La línea 25 hace B igual al número de cifras de la parte entera de la 
cantidad que se va a presentar midiendo la longitud de esta parte 
en la cadena AS. Es necesario utilizar VAL A$ en lugar de A debido 
a que el ordenador puede encontrar una anomalía entre el último dígito 
del valor de A y el de A$ tal como lo ha establecido la tunción STR$, 
pues produciría un problema en este caso anómalo. 


La línea 27 espacia la posición de la presentación (PRINT) como 
en el caso anterior (1), estableciendo después tres espacios decimales 
para la presentación de A$. En primer lugar, la cadena A$ se presenta 
completa y después se añade un punto decimal si tal cadena A$ ya 
representa un número entero y suficientes ceros para los tres lugares 
decimales. Pudiera preguntarse, ¿por qué añadir 4 a B si la presenta- 
ción tiene tres decimales? Recuérdese que el punto decimal es un 
carácter extraordinario. Con el fin de la división, la parte delantera 
es tratada como una cadena larga siempre que esté comprendida 
entre comillas. Todo lo que se ha hecho es añadir caracteres para 
que a A$ le quepan los tres lugares decimales y después se han pre- 
sentado estas tres cifras detrás del punto decimal. Esta rutina no redon- 
dea la tercera cifra decimal; existe otra en el programa SNIPPETS que 
sí lo hace. 


(111). Ahorro de memoria. Con frecuencia es posible ahorrar ca- 
pacidad de memoria utilizando cadenas para representar números 
en lugar de variables numéricas; tales cadenas se decodifican después 
mediante el enunciado VAL. Se puede poner el número en la variable 
alfanumérica utilizando STR$: 


LETA$ = STR$(1024) 
Y después se decodifica mediante el enunciado VAL: 
PRINT VAL A$ 


Frecuentemente se encontrará que, de esta manera, se consume 
más memoria al convertir los números en cadenas que si hubieran 
sido entrados como variables numéricas pero, en ocasiones, este 
método hace maravillas. 

Pruebe a aplicar VAL a una expresión como “ATN 1 X 4”. Fun- 
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ciona, y esto es muy a menudo un recurso muy útil. Puede tenerse 
el número de una variable numérica entre comillas y, si previamente 
ha sido definido o asignado, será evaluado acertadamente. En realidad, 
VAL puede aplicarse a toda clase de expresiones numéricas y, en oca- 
siones, se emplea en lugar de la proposición DEF FN. 

También es posible su utilidad si se desea generar números alea- 
torios varias veces en un programa. Al principio del programa póngase 
una instrucción LET A$ = “RND*6” y cada vez que se precise un 
número de esta clase se escribe LET R = VAL AS. 


La función INKEYS 


No se necesita pulsar el RETURN después de haberlo hecho sobre 
una tecla cuando se utiliza la función INKEYS$S, como el siguiente 
programa pondrá en claro. 

Ensaye lo siguiente. Entre un número del 1 al 9 pulsando la tecla 
de tal número y verá en la pantalla USTED PULSO EL 6 ó USTED 
PULSO EL 1, etc. Presione la tecla O para terminar y en pantalla apare- 
cerá USTED PULSO EL 0 y se detendrá el programa. 


10 REM DEMOSTRACION DE INKEYSA 
29 PRUSE 1409 

40 LET AS=INKEYS 

59 PRINT "HAS PULSADO EL ”;5Ñ 
69 IF P3="8" THEM STOUP 

78 GO TO 24 


HAS PULSADO El 


I 
po] 
U 
U 
; 
D 
O 
|) 
POJIONO YO y de 


Ss 
HAS PULSADO EL 
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HAS PULSADO EL 
HAS PULSADO EL 


HAS PULSADO 


I 
y 
u 
1 
E 
E 
18 
D 
o 
[1] 
m 
Pr 
9-00 


- El siguiente programa, denominado PREDICCION, también utiliza 
INKEYS. En este juego hay que tratar de adivinar el número (del 1 al 9) 
que va a seleccionar el ordenador. Este número se muestra en la pan- 
talla, cerca de su centro, y el número situado en lugar inferior es la 
puntuación. Cuanto más baja sea la puntuación al final (es decir, 
cuando logre predecir con éxito el número del ordenador), tanto 
mejor. La pantalla permanecerá sin presentación hasta que se pulse 
una tecla. Las palabras “LA PUNTUACION ES” se presentarán en 
destellos. 


TU NUMERO ES El 4 


EL MIO ES 86 
LA PUNTUACION ES 1 


10 REM x* PREDICCION +*x 
20 LET E=-8 
40 LET_0=0 
50 PAUSE 1009 
70 LET AS=INKEYS 
PRINT AT 8,5; INK_RND*7; PA 


59 F 
PER 9;" TU NUMERO ES EL “;Ab;* 


90 LET 0=0+1: BEEP .02, 
110 LET Ws=STR$ (INT (ADIS) +1) 
120 PRINT AT 12,E;;_INX RNDe7; 

PAPER 9;" ELTMÍIO ES "Us; " » 
130 PRINT AT 14,5; INK RND*?;_P 

FLASH 1; BRIGHT 1," La 
, > 


STOP 
138 15 Us= =98 THEN BEEP .01,RND+ 
30: 6D TO 
iso So To Se 


Sigue el programa FABRICANTE DE ENREDOS que muestra 
igualmente a INKEYS$ en acción. Utilizando las teclas de las letras “*A”, 
“Z”, “K” y “M” hay que mover el signo $ desde la esquina inferior 
derecha hasta la superior izquierda sin cruzar ninguno de los pequeños 
cuadrados blancos. Obsérvese que ningún camino está garantizado 
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y que no existe mecanismo para evitar la trampa. Al final, el número 
de movimientos que se han necesitado se presenta en pantalla. 


10 REM FABRICANTE DE _ ENREDOS 
20 REM UTILIZA LAS LETRAS A Z 


30 REM PARA _MOUER EL SIGNO 35 
40 REM DESDE LA ESOUINMA 

Sa REM INFERIOR DERECHA A LA 
60 REM SUPERIOR IZOUIERDA. 
BSDER 2: PAPER 7: CL5S : BR 


1009 LET T=INT (RNDS3)3 
110 PRINT INK (RND:S+12, "MW" AN 
D T=B) +6” + AND T<>0)3, 


120 NEXT 
130 PRINT AT 0,0;” “¿AT 1,0;” 
148 LET X=30: LET Y=i9 


200 IF As=""” PEN ca To 139 
210 IF Aj="A" AND Y>0 THEN LET 


358 Ir Ase"z" AND Y:28 THEN LET 
238 IF Ags="K" AND X431 THEN LET 
248 1F Ags="M" AND X>8 THEN LET 
2588 1F X=8 AND Y=8 THEN 60 TO 2 
so PRINT ATON,M¡" 


O 150 
280 PRINT AT 18,10; FLASH 1; BR 
IGHT 1;"LO LOGRASTE 

296 PRINT “*"TAB 4; FLASH 1; SR 
Ion? 2, "Mbs NECESITADO “,8;” SAL 


Obsérvese cómo en la línea 110 se hace uso de los métódos de 
evaluación de la lógica del ordenador. Esta linea asegura que si T- (ge- 
nerada en la línea anterior) es O se presenta un cuadrado y si T es mayor 
que 0 se genera un espacio vacío. Esta es una forma eficaz, en relación 
con la Conservación de memoria, de emular la proposición IF/THEN/ 
ELSE (Si... Entonces... u Otra cosa) que existe en otros ordenadores 
y que se trata, junto con otras similares y con mayor detalle, en otra 
parte de este libro. 
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Si se desea un límite de tiempo para las respuestas del jugador, 
utilicese este método. Supongamos que sólo tiene unos pocos se- 
gundos para decidir si quiere seguir jugando o no. Si se es lento en 
tomar la decisión, el programa se detiene. Para la ejecución de esta 
rutina supongamos que el jugador tenía que pulsar la tecla de la R 
para una nueva jugada: 


10 FOR F=1 TO 102 
20 LET ABR=INKEY 


30 IF Aje="R"” TY 60 TO SY 
40 MEXT E 

sa STOP 

560 PRINT “UUELUVE PA JUGAR” 
70 RUN 


Alternativamente puede hacerse uso del contador de cuadros de 
presentación de imagen en pantalla para las entradas de tiempo o para 
otra cosa. 

Para utilizar el contador de cuadros empléese esta rutina que esta- 
blece primeramente el medidor de tiempo: 


POKE 23673,255 
POKE 23672,255 


y para hacer uso de su valor en cualquier momento utilice: 


LET T = (256*PEEK 23673 + PEEK 23672)/50 


Esto proporcionará una medida en segundos bastante precisa si 
se presenta con PRINT T. Recuérdese que PAUSE y BEEP utilizan 
el contador de cuadros por lo que no puede ser empleada esta función 
si se usan dichas instrucciones en el programa. Para una medida en 
segundos es posible la rutina siguiente: 


19 POKE 23673,255 

20 POKE_23672,255 
30 LEL T=(2564PEEK 206739+PEEK 
23072) 45 
PRÍNT AT 8,0575" e 

Se 60 70 30 


Y ésta para un reloj digital: 


19 REM_ RELOJ DO 
20 BORDER 1: PAPER 2: €CLS 
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30 INK 7? 
40 INPUT “ENTRA HORAS “7H 
Sa INPUT plis MINUTOS “¿Mm 


LET_ S= 
7O POKE 33673, 255 
S0 POKE 23872,255 


110 PRINT BH”; 
120 IF 041 EN TREN S¿inr tar"; 
140 FF 1 THEN PRINT "8"; 


170 IF 35)59.9999 THEN LET_M=M> 
POKE_ 23673,255: POKE rl rd 285 
E IF M=60 THEN LET H=H+1 


190 IF Hx13 THEN LET H=1 
200 GO TO 118 


Si se desea más precisión en el tiempo sin tener que poner a O cada 
vez las direcciones 23673 y 23672 refiérase a las sección de PEEK y 
POKE que se verán más tarde en el libro. 


READ/DATA/RESTORE 


READ y DATA son formas muy convenientes de introducir infor- 
mación en un programa y su uso es relativamente fácil. Ejecútese 
el programa que sigue que muestra ambos READ y DATA en acción 
y vuelva después al libro para una explicación de cómo actúan. 


10 REM READ Y DATA 

20 REM EXE 
30 REM LECTURA DE DATOS 
40 REM RERERRENAEPLE PIES 


3 

694 FOR Az1 TO S 
70 READ B(A) 

NEXT A 
SO REM FERIA RE FAER 
190 REM VUELURA A LEER 
110 REM REPLETA 
120 FOR C=S TO 1 STEP -1 
130 PRINT _B(C) 


140 NEXT C 
180 DATA 13,35241,88,2,199999 
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199999 
2 


5883 
3s241 
13 


En la línea 70 el ordenador llega a la instrucción READ (lectura)... 
Siempre que encuentra esta instrucción se dirige al primer elemento 
que sigue a la palabra DATA (Datos) y lo leer. En este caso es un con- 
junto (array). Los elementos que introduce DATA pueden estar en 
cualquier parte del programa (aunque es útil mantenerlos bastante 
cerca de la instrucción READ a la que están referidos). 

Vuelva al programa '“TABULADOR LANZAMIENTO DE COHE- 
TES” que utilizamos al principio del libro. 

En el primer programa de esta sección, los datos (DATA) son nú- 
meros y están asignados a variables numéricas (los elementos del 
conjunto). En el programa sobre COHETES son cadenas (Línea 220) 
y se asignan a variables alfanuméricas A$ y después se presentan en 
la línea 120, a través del bucle denominado «cohete». Existe una ter- 
cera palabra que acompaña a READ y DATA: es RESTORE. Esta ins- 
trucción hace volver al principio de la lista de datos (DATA) y empezar 
la lectura (READ) nuevamente desde el primero. Aquí tenemos otro 
programa sencillo que muestra los datos en forma de cadenas e ilustra 
igualmente sobre la acción de la instrucción RESTORE. 


10 REM READ y DATA 
2D REM 2222 

30 REM LECTURA DE DATOS 

4 REM 33555 

52 DIM Bs(21,5) 

60 FOR Az1 TÓ 21 

74 READ B5 (A) 

78 IF 3%INT (A/31= THEN RESTO 


NEXT H ; 
SD REM AAA 
100 REM VUELUA A LEER 
110 REM EXE AAAAA 
120 FOR C=21 TO 1 STEP -1 
1230 PRINT SB” E 


xT Cc 
156 DATA “MOJAR", “MATAR”, “MORIR 
AORTA METAN nODAR 
MATAR MOJAR MORIR 
21 METAR 


HR MOR ; MORA 
MORIR MATAR MOJAR MORIR 
MATAR MOJAR MORIR MATAR 


HOR TR 
MATAR 
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En este programa sólo hay tres datos por lo que la instrucción 
RESTORE actúa una vez se hayan leído los tres. La línea 80 asegura 
que esto ocurra cuando se completa la lectura de los tres mientras 
se efectúa el bucle A de 1 a 21. Obsérvese que los datos en cadena 
han de estar encerrados entre comillas. 

Como se ha visto, se utiliza la instrucción READ en una línea para 
asignar valores a unas variables desde una secuencia de elementos 
contenidos en la instrucción DATA. Cada uno de dichos elementos 
está separado del que sigue por una coma. La instrucción READ se 
compone de un número de orden, seguido por la palabra READ y 
los nombres de las variables que han de ser asignados a las que se 
toman de la línea de datos (DATA). 

Al llegar el programa a una instrucción READ se desplazará, como 
ya se ha dicho, a la primera DATA que encuentre, sin importar dónde 
se halle. El primer valor de DATA será asignado a la primera variable 
de la instrucción READ. Tras la asignación, el ordenador se desen- 
tiende de la instrucción DATA y la trata como si fuera del tipo REM 
(Información). Desplácese la linea 150 del listado anterior a la 25 y 
vuélvase a ejecutar el posterior programa nuevamente. Se verá que 
el ordenador ignora la línea 25 aunque la lee acertadamente. 

Aunque los datos (DATA) se hallen dispersos por el programa, 
el ordenador los buscará como puede observarse en el programa 
que sigue: 


BD REM READ Y DATA LECTURA 
20 DATA _ "HOLA" ,7 


7D READ BA1A),Z1A) 
80 IF 3*INT 1(A/3)=A THEN RESTO 


85 DATA “PATO” 
9Y NEXT P 

se, er er 
FOR C=1 TO 21 
144 PRINT B351C3,Z1C) 


14S DATA 22 
159 NEXT € 


Es importante asegurarse de que hay suficientes datos para el 
número de veces que se desea que el ordenador lea. Elimínese la 
línea 145 del programa anterior y vuelva a ejecutarse. En la pantalla 
se presentará el mensaje de error “E OUT OF DATA,70:1” (faltan 
datos,70:1) porque el ordenador ha leído dos datos numéricos pero 
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no ha podido encontrar el tercero y aún no ha llegado a la instruc- 
ción RESTORE. 

Recuérdese que aunque no es esencial que los datos estén cerca 
de las lineas READ que los solicitan, los programas serán probable- 
mente más fáciles de entender si se hallan de esta manera. También 
resulta más fácil saber las líneas que hay que alterar cuando se tra- 
baja en un programa. 


Gráficos definidos 
por el usuario 


Una de las características más atractivas del ZX Spectrum es la 
facilidad para definir gráficos. Es fácil hacerlo y permite adaptar la 
parte visual de nuestros programas a nuestros deseos. En este capí- 
tulo desarrollaremos una forma muy simplificada del juego comer- 
cializado «Comecocos» para observar en acción los gráficos definidos 
por el usuario. A nuestro juego le llamaremos '*DOTMAN” (“Hombre 
Punto”) y consistirá en una sola criatura “Pacman” que trata de 
escapar de un “Ghost” (fantasma) mientras intenta comerse todos 
los puntos que pueda. 

Los gráficos se definen sobre una cuadrícula de ocho. por ocho, 
como la que sigue: 


Podemos seleccionar cualquier tecla, desde la A a la U, e imponer 
nuestro gráfico con dicha tecla, de forma que cuando sea selecciona- 
da, en lugar de presentar la letra correspondiente, trazará nuestro 
propio gráfico. Si bien ya sabemos que se perderán los gráficos si des- 
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conectamos el ordenador, no se verán, sin embargo, afectados por 
la instrucción NEW, por lo que es posible aplicar esta instrucción 
para entrar otro programa y seguir conservando los gráficos para 
un juego posterior. 

Se cambia el contenido de los gráficos de una tecla mediante 
un bucle corto POKE. He aquí un ejemplo. Si se desea que aparezca 
una forma de diamante cada vez que se pulsan las teclas '*CAP SHIFT” 
y “GRAPHICS”, haciendo que la marca cursora en la pantalla sea 
una G, y accionando la letra A, procédase como sigue: 


Primero, en su cuadrícula o parrilla (de las que existen varias al 
final de este Capítulo y que pueden fotocopiarse para una utilización 
futura) se dibuja el modelo que deseamos crear. Un diamante pu- 
diera parecerse a esto: 


El dibujo se introduce con la instrucción POKE mediante una serie 
de ocho instrucciones DATA en las que el O equivale a un cuadrado 
en blanco y el 1 a uno lleno. La línea superior de esta forma de dia- 
mante viene expresada por 00001000, un número binario de ocho dígi- 
tos. La segunda línea del diamante es 00010100. Compárense estas 
expresiones numéricas con los cuadrados negros del diagrama. Se 
indica al ordenador que el número utilizado es binario haciéndole 
preceder en el enunciado DATA con la instrucción BIN, que se obtiene 
con la tecla B. Después se presenta la rutina completa para la genera- 
ción de la figura del diamante: 


10 REM NS 

20 FOR J=09 

30 READ Q 

40 POKE USR "A“"+J,Q 
54 NEXT 


D 
D PRINT "A" 
O DATA BIN 08081002,BIN 099019 
PIN 09120019,B1N GÍ0D0001. EL 
100019,BIN 046010100,nIN 40095 
BIN 00000020 


e 
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Téngase en cuenta que la A de la línea 60 se pulsa en la modalidad 
de gráficos (cursor en G). Al ejecutar el programa, cambia incluso 
la A del listado: la linea 60 tiene esta representación: 


SA>PRINT “oO” 


No hay duda de que hemos creado una forma de diamante bas- 
tante aceptable, como se ve en la representación que se obtiene: 


S 20 
OEAEIIAATANIIALAEAAR 
$99.99 SIIIIISOS 


333 PRI 
PIAR 


ero oo 
o 


Puede pensarse que los ceros delante de las cifras significativas 
no son necesarios; sin embargo, preferimos dejarlos ya que hacen 
mucho más fácil la comparación de los datos con la figura para el 
caso de que algo vaya mal. Apliquese la siguiente instrucción DATA 
al programa anterior y véase lo que se consigue: 


?7B0>DATA BIN 200110008,B1IN 01110 
0Q00,BIN 01111110,51N 01011111,B1 
N_ 10011111,BIN 00010010,DIN 0991 


2010,BIN 2000090095 


Se pretendía hacer un elefante y ha resultado bastante bien como 
puede verse en la pantalla. 


PARAR 
e a e A A 


Pasemos a la creación de nuestro juego ''Comecocos”, el “*DOT- 
MAN”. Seguimos el proceso de conseguir un programa que funcione 
antes de definir los caracteres que forman parte de él. Esto asegura 
que lo importante es el propio programa, no los gráficos que se utili- 
zan en el mismo. Es perfectamente posible ver la acción de un pro- 
grama entero mediante el empleo de letras antes de decidir exacta- 
mente lo que va a representar cada una de ellas. 

Nuestro juego será bastante sencillo. Sobre una parrilla de 14 por 14 
existirá un “DOTMAN” sometido a nuestro control y un “FANTAS- 
MA” gobernado por el ordenador, así como una serie de puntos que 
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pueden ser engullidos por el DOTMAN. También habrá una especie 
de laberinto formado por muros que ni el FANTASMA ni el DOTMAN 
pueden franquear. 

Al final del libro, en la sección denominada “Mejore sus progra- 
mas”, se sugiere que se esquematicen las partes principales del pro- 
grama de forma que su estructura resulte clara, incluso antes de em- 
pezar a trabajar con él. Si se sigue el proceso que se describirá se 
verá lo útil que esto puede ser. 


El programa “DOTMAN” 
(“comecocos”) 


La estructura para el DOTMAN es como sigue: 


1-999 : Enviar la acción a las partes del programa para empezar. 
1000-1999: El jugador controla el DOTMAN. 
2000-3999: Movimiento del FANTASMA. 
4000-4999: Fin del juego si el FANTASMA cae sobre el DOTMAN. 
5000-5999: Definición del DOTMAN., 
6000-6999: Definición del FANTASMA. 
7000-7999: Presentación del laberinto. 
8000-8999: Inicializar las variables. 


Una vez se está ejecutando el programa, establecerá un bucle 
desde 1000 hasta 3999 (o cualquiera que sea el valor más alto que com- 
prenda los movimientos del FANTASMA) una y otra vez, hasta que 
el FANTASMA alcance al DOTMAN, en cuyo momento el programa 
pasará a la línea 4000 para terminar la rutina del juego. 

Escribamos la primera rutina de control: 


109 GO E 20909 


48 GO SUB 56000 


Esto es todo lo que se necesita hasta este punto. Y ya que vamos 
a escribir todo el programa antes de definir el DOTMAN y el FAN- 
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TASMA, añadiremos 6999 RETURN y 5999 RETURN y seguiremos 
con la construcción del laberinto después que hayamos definido las 
variables. GA es la posición del FANTASMA en sentido transversal, 
GD es su coordenada descendente. EGA y EGD son las variables para 
“borrar” el FANTASMA cuando se mueve. En forma similar, DD y 
DA lo son para el DOTMAN en sentido transversal y descendente, 
y EDD con EDA para borrar. 

Ponemos el laberinto y las rutinas para mover el DOTMAN y el 
FANTASMA, y resulta este programa: 


10 EOS SUB eun 
S TY 


> sos 
MO REM MOUIMIENTO: DEL_DOFTMAN 
REH_ DETHAN ES B,E>05,E EN LA 
O ODALIDAD GRHPHICS 
1020 PRIN 


T AT EDD,EDAZ” “ 
10 T_ HF DDDAA 
1035 LEF_EDD=DD: "LEF ED 


g LE =DD: LE F=DAR 
1040 IF _INKEYS="S" THEN -IF:DA<I 

THEN 15 SCREENS? > tig CARE 
THEN LET_DA=DA+1: LET_-AS="BR” 
sa IF INKEYS="5” THEN IF DAS 

HEN X1F SCREENS (D5, DR=SE7 CER" T 

MEN LET DA=DA-1: LEFT AR="C" 

1060 IF INKEYA="7" THEN LIE DD>0 
THEN IF SCREENS (DD-1,DHR) +2 T 

LET DD=DD-1: LEFT Ags= 


HEN . 

ed IF INKEYaA="65" THE y TF DB 
THEN ad O. do” DAY <> o 
N DD=D As="D" 


29390 5 ARDE he Eu TO 1000 
199290 REF FANTASHA ES G.ENn 


2020 IF DD<GD THEN, 1 SEREENS 16 
2034 IF DD>GD THEN IF SCREENS (G 
Ar<> "Xx" THEN GD=5D+E 
IF DA>GA THEN IF SCREEN* 1C 
" THEN LET : 


$ G ; 
50 IF DA<GA_THEN 1F SCREENS (5 
D,GA-1)<>"X" THEN LET GA=GA-1 
2999 GO TC 1000 


RETUR 
7000 REM CONSTRUIR EL LABERINTO 
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: e E 
7020 PRINT AT OD) "XxX" GHT 3112: "xX 
7999 PRINT ATA) UN UGHE 21237 “XM 
A AT SS," MXXMMOC AT 3,9: 
7110 PRINT AT 5616; "X":AT 6,9; "XxX" 
7129 PRINT AT 7: "X"5AT 7,3; "X" 
7130 AT 2,3; ; e 


5140 PRHINT AT IB,-3;“X" 
7158 PRINT AT 11,3; "XXXX"” 
7160 PRINT AT 12,9 "XXX" 


71370 RETURN 
350060 REM UARIABLES 
510 LET DA=9 


Si se ejecuta se verá que tenemos una versión del programa que 
funciona. Es un poco insulso de momento pero no debemos desani- 
marnos. Quedaremos agradablemente sorprendidos en lo bien que 
resultará cuando esté acabado. Puede mejorarse con facilidad, incluso 
en este punto al añadirle: 


7065 INVERSE 1 
7165 INVUERSE 9 


La instrucción INVERSE funciona como el BRIGHT y el FLASH; 
1 significa activado y O desactivado. Vuélvase a ejecutar el programa 
y Obsérvese el efecto del INVERSE sobre las paredes del laberinto. 
Las realza inmediatamente, ¿verdad? Debe haber cuatro DOTMANS, 
uno en cada dirección, de forma que su boca apunte en la dirección 
en que se mueva. Por ello la variable A$, que es el DOTMAN, se cam- 
bia al final de las líneas 1040 a 1070. 

Añádase lo siguiente para definir los DOTMANS: 
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elo ele eiHMa Ghia 
eli el (De DO BN 
A el el sel ela O sel 
“BO elote! ele] eel 
00 Ae Qe Qel 
92 AZ e] el 
a ES Ze ze el 
«0 $44 4 0) ei +0 
«el DA > Ma - 0 - hr > 
70 «Bel nel el «et 
E 076 Qe Sell Qee 
090 ¿4 a el GS el O e $e 
. eze » eAZel » AzO . ze 
ra 3) Ame 3 eHe ? emi 2 He 
a + Ane + ele Anel QM 
Ho oh: e sen A DOOR : A+ AQN 2 O HO 
0 Y 09+8 QA. € Qee. Y rindo 
Le] : 600 Y=QO 2 OA dd) : OA DO £ Qu e 
Z Agar AZ eta 420 ea 
a] Xx ZA 2AHA. a ZAMO. ES el 
E ey HA 1 Hao YN HAGO yn Hana 
1a2730A -ANBITNA 2 (AIDA A MEAIAOA O 
a 3 > rl 0r97 Ar rirnO 
A aL az 
husuduszanouSUr zan oMDME=9ñ6 QUA ZAH 
af: ca AOL Aa AOLEZO An 
OA 
ORHANOFINAAAINNDABAAARNORNA ARIAS AA 
1£0500007+— OBRAR AA eAririririeal DOrriririie el 
DOI AZADNIIDNDNNOAZ ANDINA ZAS INVISA Ze 


Hemos esbozado un número de posibles figuras para el DOTMAN 


antes de decidirnos por la marcada con la B. A este dibujo se le ha 


dado la vuelta para conseguir los números binarios para las cuatro 


figuras. 
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GRAFICO DE 8 
GRAFICO DE € 
GRAFICO DE D 
GRAFICO CE E 


EIA 
Mou 


Agréguese algún color insertando INK 2 en la línea 1030. Esto hará 
el DOTMAN de color rojo. INK 1 en la línea 2010 pondrá azul al FAN- 
TASMA cuando esté completo. 

He aquí nuestros bocetos de trabajo para el FANTASMA. 


El FANTASMA que finalmente conseguimos es un pariente próxi- 
mo del de la izquierda del dibujo. Aunque no parece particularmente 
prometedor aquí, resulta bastante bien en la pantalla. Probablemente 
ocurrirá que, de vez en cuando, se deseará modificar el gráfico final ' 
cuando se vea en la pantalla, y resultará bastante fácil trabajar direc- 
tamente desde ella, sabiendo pronto qué elementos de la instrucción 
DATA (de datos) hay que cambiar. De cualquier manera, he aquí nues- 
tra versión final del DOTMAN, completa con unas cuantas presenta- 
ciones en la pantalla. Como ocurre con frecuencia estas presenta- 
ciones no hacen justicia a la apariencia del juego. Seguramente que 
se disfrutará jugándolo e imaginando ideas para mejorarlo y hacerlo 
cada vez más parecido al juego comercializado '“COMECOCOS”. 

Un cambio que pudiera desearse es añadir una rutina para generar 
un laberinto aleatorio (poniendo X,s al azar sobre la parrilla en la 
subrutina 7000). Asimismo se puede hacer que los DOTMANS y el 
fantasma empiecen en posiciones aleatorias dentro del laberinto. Una 
característica interesante pudiera ser la posibilidad de marcar la pun- 
tuación más alta obtenida. 
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e PUNTOS 


39425 PUNTOS 


44733 PUNTOS 


133 


134 


FIN 


.4.n.... a... 4 
9dO.,q, .q.q.,_esn.q o. pp. (  . ..2 


pP.ooo 


DEL JUEGO 


GO SUB 80900 


188560 


PUNTOS 


214487 PUNTOS 


GO SUB 659009 
DE MOUIMIENTO DEL ra 
DOTMAN 


10 EM ES.B-C,D,E EN LA 
MOBALIDAD GRAPHIC 

1020 PRINT EDO EDa;" " 

1025 IF SCREENS 165, DA) ="." THEN 
o Ra 

1932 IF SADA AS E Ñ*co 
1998 LET_EDD=DD; LET_EDA= 

1040 IF INKEYSs="8" EN CIR DAI 
THEN 1F ESTA (DD ES 

THEN LEF 

1050 IF INKEY$="5" THEN IF DAA 

THEN IF SCREENS (DD DA-1) <> "Xx" T 
HEN LET DA=DA-1: LET As="%" 


1969 IF INKEY$="7?" THEN _ IF DD>9 
THEN IF SCREENS (DD-1,DA)<>"X" TY 
HEN LET DD=DD-1: LET Ás="4" 

1870 IF INKEYS="S5" THEN IF DD<13 
THEN” IF SCREENS (DD+1 ESOS 

THEN LET DO=DD+1: LÉT As= $= E. 


3305 PRINT.AT 7,16; FLASH 1 PUNT 


0 UNT 

1990 REM_FANTASMA ES G EN 
GRAPHICS 

20060 IF SCREENS (GD,GR)=" " THEN 

PRINT AT EGD,EGA;” ": GO TO 2901 


a 
2005 PRINT AT EGD.EGA; INK ANDES 


2018 PRINT AT 0D,GA; INK 1;" 
2013 1P om=bo Má cba THEN DO 
TO 4080 


4 
2015 LET ESD=6D: 1LET_EGA=GH 
2020 IF DD<GD THEN IF SCREENS (6 
D-1,6A)<>"X". THEN LET GD=GD-¿1 
2036 > PA A de 1F SCREENS (6 


2048 IF DRA>GA_ THEN IF SCREENS (6 


50 IF DA<GA_THEN IF SCREENS (6 
,GA-1)<>"X" THEN LET GA=GA-1 


I INK RND+*6; 

SPER 9; FLASH 1: “Pin DEL NuECÓ"” 

0 BÉEP - 91. RÑD* 

1832 PRINT 1 NK_R EE. FLASH 1;AT 

E n AI , 

4838 "PRINT INK_RND*6; e ASH 1;AT 
¿ET DD,D 


GO TO_400 
SoDo REM DEFINICION DE LOS 
DOTMANS 
5010 DERD d=4 TO 7 


5028 READ O 

5030 PORKE UsR "En+ 0,0 

S5as4a NEXT Y 

5050 DATA BIN 00111100,BIN o1111 
311,BIN 11111100,5 11110900,B1 
N 11111000,B1N 21 ¿ads BIN 0111 
1111,BIN caiiiado 

5858 FOR J=8 TO ? 

5074 READ Y 

50580 POKE USR "3"+J,0 

5290 NEXT .l 

5108 DATA BIN P0111108,BIN 11124 
110,B1N 00111111,B1N P0D911111,61 
N 000601111,BIN 06111111,BIN 1141 
1118,B1N 00111100 

5110 FOR y=8 TO ? 

5139 READ D 

5130 POKEÉ USR "N"+J,0 

51420 NEXT 
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5150 DATA BIN 00111108,BIN 01111 
110,BIN 11111111,BIN 11111111,B1 
N 11110111,BI1N 11108111,BIN 01009 
9918,B1N S1020018 

51560 FOR Y=8 10 7? 

5179 READ 9 

5180 POKE USR "Y" +*J,0 

5190 NEXT 

5260 DATA DIN O1690010,BIN 01099 
Q18,BIN 111980111,BIN 11191111,B1 
MR iaiax22 Bi 14222211 BIN Sisa 
1119,BIN 9061111208 

5929 ' RETURN 

£309 REM DEFINICION DEL FANTASMA 


58918 FOR J=0 TO ? 
£020 RERD Y 
56350 PORE USR "“M"+U,0 
5040 NEXT J 
50 20111000,B1N e3113 
SIN 11010110 DiN 11910120 
N 141111110 BIN, 3431 121110 82% Lolo 
1919,BIN 1010 
5999 ' RETURN 
7900 REM CONSTRUIR El LABERINTO 


70830 PRINT > INK Caños; : vs 


xT 
2865 INUERSE 1 

PRINT AT 
7080 PAINT Ar 
70298 PRINT AT 


10D PRHINT AT 
EA 17 


A 
A E ECO 


ORO GAT A AAA 
¡OMAN CAT SD 


Un Y + Gm 
9 


7110 PRINT IB “AVG AT BB 90M 

7120 PRINT AT 7/83 "X" ¡AT 7,9 "X" 

7138 PRINT IBARRA BLENN 
E Ss; dl”, 

7140 PRINT AT 10,3;"x" 

7150 PRINT AT 11,3; "XxxXX" 

7160 PRINT AT 12,9; "“XXX" 

7165 INVUERSE O 

7378 RETURN 

30600 REM UARIABLES 

3018 LET DA=8 
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Eliminación de una parte 
de la presentación 
en pantalla 


Se trata de una subrutina útil que permite eliminar cualquier nú- 
mero de líneas del fondo de la pantalla. Pueden conservarse algunas 
líneas de instrucciones en la parte superior de la presentación durante 
el juego o bien la puntuación lograda u otras instrucciones especiales, 
eliminando el resto. La subrutina debe denominarse '““GOSUB 8010”. 


9910 INPUT "CUANTAS LINEAS HAY 
dez 1F 0D OR 121 TREN 60 TO 


5838 FOR F=21 TO 21-C STEP -1 
2820 PRINT AF FO" 
NEXT_F 
3969 PRINT AT F+1,0; 
8470 RETURN 


La línea 8010 pide las lineas que hay que eliminar, empezando 
desde la 21 en el fondo de la pantalla hacia arriba. Resulta impresionan- 
te. La instrucción INPUT (Entrada) no es un enunciado a toda prueba; 
posiblemente le gustará experimentar con él por sí mismo. La ins- 
trucción de la línea 8060 desplaza la posición de la presentación 
(PRINT) al principio de la parte de la pantalla que se acaba de despejar. 


Desplazamiento de pantalla 
en BASIC (Scrolling) 


Los programas en código máquina pueden pasarse fácilmente 
en grandes porciones de memoria de carga en bloque desde una 
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localización a otra para permitir, por ejemplo, que la pantalla se cargue 
en ciertas direcciones de memoria. En general el lenguaje BASIC es 
normalmente demasiado lento para permitir hacer esto. El único mé- 
todo que puede prácticamente utilizarse para desplazar la imagen 
de la pantalla es almacenarla en un conjunto (array) en cadena y des- 
pués presentarla con la instrucción PRINT. A continuación se dan cua- 
tro ejemplos de programas que permiten que toda la imagen en pan- 
talla se desplace hacia arriba, hacia abajo, izquierda o derecha. 

Estas rutinas son apreciablemente más lentas que la instrucción 
SCROLL, especialmente cuando se trata de desplazamientos a izquier- 
da y derecha ya que se presentan de línea en línea. 


Desplazamiento ascendente 


re S REM DESPLAZAMIENTO ASCENDEN 
10 DIM AS51(704) 
20 INPUT AS 
230 PRINT AT 0,0;As 
40 LET AS=AS (33 TO 34%. 


50 60 TO 30 


Desplazamiento descendente 


5 REM DESPLAZAMIENTO  —DESCEN 


DIM A$F704) 
20 INPUT AÑ 
39 PRINT_ AT 0.008 


40 LET 
"+ABGt TO 672) 
59 GO TO 30 
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Desplazamiento hacia 
la izquierda 


REM_ DESPLAZAMIENTO A LA 


9.288 _ 
10 893 32 

So LE7 hstr Po +22) AS P+2 TO 
Far" 

60 NÉXT_F 

74 GO TO 30 


Desplazamiento hacia 
la derecha 


S REM DESPLAZAMIENTO "Pp LA 
DERECHA 
108 DIM AGF(704) 
20 INPUT ar 
30 PRINT A ola 
du FOR esa 3TeP 32 
590 LET AÑ “So F+I31)=" “+ AFUF 


e a TO 38 


Conservación de líneas 
en los márgenes 
de la pantalla 
La forma más fácil de lograr esto es mediante el uso de la posibi- 


lidad de dividir las cadenas alfanuméricas para desplazar (“SCROLL”) 
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sólo ciertas partes de ellas. Veamos primeramente el desplazamiento 
vertical ascendente. Sea L el número de líneas que no se desplazan. 


Sigue el desplazamiento vertical descendente. La variable L es 
el número de líneas no desplazables en el fondo de la pantalla. 


10 DIM A$s$(704) 
INPUT AS 


30 PRINT AT_0,UA;AS 
30 LET A$1 TO ?7B4-L£392)= 


TQ 704-(L+1)*32) 
509 GO TO 204 


"AG 


Es posible aplicar la misma técnica para los desplazamientos la- 
terales, pero debido a que éstos son bastante lentos, no merecen la 
pena. Puede extenderse esta idea para permitir que líneas de cual- 
quier parte de la pantalla se mantengan estacionarias mientras que 
las que están encima o debajo se desplazan; ello se haría modificando 
la división de la cadena pero si se requiere un cálculo complejo sería 
demasiado lenta la rutina. 

Otra técnica aplicable a estas rutinas es la de “fuga y entrada”, 
por la que lo que desaparece por un lado reaparece por el opuesto. 
He aquí cómo hacerlo con un desplazamiento vertical: 


19 DIM $704) 
E 
20 LET AS$=A5$ 243 76 J+8$t TO 32 


509 GO TO 308 
Y un desplazamiento vertical descendente con “fuga y entrada”: 
16 DIM AS dd 


22 INPUT 
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20 PRINT AT 0,0/AS 
10 LET As=AS( Po As 70 6 


72) 
50 GO TO S5Q 


Desplazamiento hacia la izquierda con “fuga y entrada”. 


10 DIM AsS$(70dA 

20 INPUT A 

30 PRINT D0,0;P3% 

F TO 6 STEP 32 

59 LET ABCF TO F+31) =A$1(F+1 TO 
F+313) +AR1(F)3 

60 NEXT F 

70 GO TO 238 


Para el desplazamiento a la derecha con “fuga y entrada”, cám- 
biese la línea 50 por la que sigue: 


AT pte TO F+31)=ARIF+31)+ 
PASIF TO F+3 


Finalmente, recuérdese: en lugar de utilizar PRINT para situar algo 
en pantalla empléese: LET AS(X) = *“X”, puesto que lo que se hace 
presentar mediante la instrucción PRINT no se desplaza, sólo aparece 
en pantalla el contenido del conjunto (array) AS. 


Movimiento de gráficos 


La teoría para estos movimientos se elabora sobre la base de que 
primero se dibuja un carácter en una posición durante un tiempo 
breve, después se borra y vuelve a presentarse en otra posición. Se 
utilizan variables para recordar la posición de la representación. Vea- 
mos un programa ejemplo que elaboramos según esta “'teoría”. 
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Este no es un programa muy bueno, el cuadrado negro presentado 
parece detellear al moverse en la pantalla y el programa se detiene 
con un mensaje de error cuando el cuadrado negro alcanza el extremo 
derecho de la pantalla. Lo que ha ocurrido es que X es una variable 
que dice al ordenador dónde tiene que presentar el cuadrado negro, 
y si el valor correspondiente es mayor que 31 ya no se puede presen- 
tar ya que la pantalla se extiende desde el 1 al 31, y cualquier intento 
de aplicar un número superior a 31 haría la presentación del cuadrado 
fuera de ella. Siendo el Spectrum una pequeña máquina inteligente 
decide que esto no puede ocurrir, por lo que detiene el programa y 
dice que hay un error para que pueda corregirse. Hagámoslo. La 
forma más fácil es disponer que si el valor de X cae fuera del alcance 
permitido cambie automáticamente el programa a otro más adecuado. 
Esto puede hacerse añadiendo una línea como la siguiente: 


45 IF X>331 THEN LET Xz=08 


Pero dado que ya tenemos una línea que dice LET X = 0, podría 
conseguirse lo mismo remitiendo el programa a dicha línea, la 10. 


45 IF X>331 THEN 609 TO 10 


Esta técnica se usa mucho en los programas, reenviando al prin- 
cipio para volver a establecer ciertas variables en sus valores iniciales. 
En este ejemplo, ambos métodos consiguen los mismos resultados, 
aunque es posible encontrar programas en los que sólo uno de ellos 
es conveniente, Oo uno es mejor que el otro. 

El paso siguiente tiene por objeto mejorar la presentación. Una 
forma de hacerlo es asegurarse que la presentación dura más que 
el borrado. Pruébese esto: 


LET Xx=Q 
20 PRINT AT_S,X; "H” 
34 ms F=1 TU 14 


EXT F 
45 IF X>31 THEN GO TO 19 
59 PRINT dd 


79 IF X>31 THEN LET X=0 
54 Go TO 20 


Parece funcionar bastante bien pero en muchos programas hay que 
realizar otros cálculos que originarán retardos, y el bucle de pérdida de 
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tiempo de las líneas 30 y 40 retrasará las cosas innecesariamente por 
lo que no es una solución muy conveniente. Tratemos de reducir la 
sensación de destelleo en el movimiento haciendo menor el tiempo 
entre el espacio donde se va a hacer la presentación y la propia pre- 
sentación. Ensaye lo que sigue: 


10 LET X=08 

20 LET P=X 

3904 LET X=Xx+1 

40 IF _X>31 THEN LET X=0 

59 PRINT AT S5S,P;" "¿AT 5,X; "EN" 
60 60 TO 2D 


Observe cómo el desplazamiento es más regular. 

Aquí, X es la variable que recuerda la posición donde se va a 
hacer la presentación y P la de la posición previa, de forma que pueda 
borrarse al disponer un espacio vacío sobre ella. La linea 10 hace 
que X empiece con un valor 0. La línea 20 determina el de P hacién- 
dolo igual a X antes de que X se incremente en valor en la línea 30. 
El incremento puede tener cualquier valor; pruébese a cambiar el 1 que 
sigue al signo + y véase el efecto. Da la sensación de que el movi- 
miento es más rápido y esto puede ser ventajoso o desventajoso. 
Póngase nuevamente el 1 después del +. 


La acción de la línea 40 es asegurar que cuando la representación 
“del cuadrado ha alcanzado el lado derecho de la pantalla, vuelve al 
izquierdo al restablecerse el valor O a X. Ello nos proporciona una 
provisión constante de cuadraditos. La línea 50 hace toda la presenta- 
ción; obsérvese cómo dos funciones AT pueden ponerse en la misma 
línea unidas por medio de un punto y coma. Lo mismo puede hacerse 
con TAB, incidentalmente. Pruebe a poner las funciones AT en dos 
líneas separadas para ver si se produce alguna diferencia en el pro- 
grama: 


S50>PRINT AT 5,P;" _” 
S5 PRINT AT 5S,X;"s” 


Se puede acortar el programa en una línea haciendo que la 30 sea 
como esto: : 


30LETx = x + 1AND x < 31 
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La forma en que funciona esta línea es bastante compleja y se 
explica mejor en las partes del libro que tratan de instrucciones con- 
dicionales. Simplificadamente se puede decir que “si X es menor 
que 31 se añade 1 a su valor, pero si no es menor que 31, X se hace 0”. 
Elimínese ahora la línea 40 (la que hemos hecho redundante) y renu- 
mérese en pasos de 10. Obtendremos el siguiente listado: 


per 
30 LET X=X>1 AND Xx<31 
40 PRINT ar S,P;" "¡AT 38,X;"W" 
sg GO TO 


Se habrá advertido que en el espacio vacío se presenta una co- 
lumna detrás del cuadrado todas las veces y, por consiguiente, pu- 
diera ser posible expresar simplemente PRINT AT 5,X; “(espacio)! :” y 
eliminar al propio tiempo la variable P. Esto hace la presentación más 
regular pero causa problemas cuando se llega al final de la linea y se 
necesita otra para resolverlos. Para ver lo que se quiere decir, pruébese 
este programa: 


10 LET Ns=a 

29 LET X=X31 AND x<30 
38 PRIMNT AT 5,Xx;” E” 
¿4R a To 22 


¿Se aprecia lo que decíamos? Cada vez que se dispara un nuevo 
cuadro, el viejo permanece en el lado derecho de la pantalla. Permí- 
tasenos añadir un artificio para borrar estos cuadrados: 


10 LEFT X=8 

20 LET X=X31 AND XI30 

309 PRINT AT 

35 IF X=8 THEÑ PRINT AT 35,31" 


48 GAO TO 249 


Nuevamente podemos utilizar AND para acortar un poco el pro- 
grama: 


10 LET x=0 
20 LET X=X+1 AND x«<3aq 
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30 PRINT AT S,X;” MW" ¿AT 5,31; 
“ AND X=8 
30 60 TO 208 


La línea 35 del primer programa y la segunda parte de la 30 en 
el segundo programa aseguran que sólo se produce el espacio vacío 
si el cuadrado ha alcanzado el final de su trayecto. He aquí otra 
forma de hacer esto mediante la variable de control de un bucle 
FOR/NEXT en lugar de la variable X convencional. Este método uti- 
liza un poco menos de memoria y es algo más rápido. 


10 Ao Ei: TO 30 

,29 PR AT 5,X3" M"¡¿AT 5,391;” 
AND xo 

30 NEXT_X 


40 GQ TO 10 


Otra forma de usar este método es con un PRINT AT 5,31; “es- 
pacio)()” fuera del citado bucle FOR/NEXT. Tiene la ventaja de que 
el ordenador no ha de examinar la expresión condicional con tanta 
frecuencia por lo que el programa se ejecuta en forma mucho más 
rápida: 


10 FOR X=82 Ta 3238 
28 PRINT AT S,Xx;” E” 
xXT Xx 


40 PRINT AT S,31," ” 
se 60 TO 18 


Hemos acabado así con una rutina que es bastante rápida de 
ejecutar y económica en utilización de memoria. También hemos visto 
algunos de los problemas de la ejecución de esta clase de programas. 
Los ejemplos examinados hasta ahora tratan del movimiento constante 
a través de la pantalla. Será preciso también desplazar caracteres por 
toda la pantalla, posiblemente con el control de este movimiento por 
medio del teclado, de forma que el operador pueda realizar este con- 
trol. Para hacer esto primeramente tenemos que regresar a la función 
INKEYS, una ayuda muy útil para el movimiento de gráficos. Si se ha 
leido una sección situada al principio de la obra, recordará que 
INKEYS es el carácter que corresponde a la tecla que se pulsa en el 
teclado. Si se presiona la K, INKEYS$ es “K””, o bien, INKEYS = “k””. 
Si no se pulsa ninguna tecla, INKEY$ se convierte en una cadena vacía, 
o *””. (Tal función no puede aplicarse a la tecla espaciadora porque 
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cuando se pulsa ésta actúa como ruptora de un Programa [BREAK] 
y detiene un programa de BASIC cuando está en ejecución.) Vamos 
a tratar ahora de algunas otras formas en que puede utilizarse la fun- 
ción INKEY$, ya que es muy poderosa y muy útil para el movimiento 
de gráficos. La mayoría de los juegos electrónicos comercializados 
requieren que se pulse un botón, se accionen conmutadores o que 
se manipulen ciertas palancas. El ZX Spectrum no dispone de tales 
elementos (a menos que los compre separadamente o se los construya) 
por lo que todo el control ha de hacerse con el teclado. 

Para el control de movimiento en la pantalla ciertas teclas tienen 
ventajas sobre otras en virtud de su situación. Por ejemplo, la Z y la M 
en la hilera inferior del teclado. Pueden usarse para movimientos a 
izquierda (Z) y derecha (M). Su ventaja es que están lógicamente si- 
tuadas para una utilización adecuada. Una Ventaja es que la M está 
cerca de la tecla de ruptura (BREAK), por lo que accidentalmente, y 
ante la urgencia de los desplazamientos para evitar ser bombardeado 
por la “Gran Amenaza”, pudiera detenerse el programa. 

Si se necesita controlar desplazamientos a izquierda y derecha, 
arriba y abajo (como es el caso del movimiento del cursor en el pro- 
grama de proceso de textos ['“word processor'"] al final del libro), la 
mejor elección son las teclas de los números 5, 6, 7 y 8, ya que incor- 
poran unas flechas cuyas puntas señalan el movimiento. Están próxi- 
mas entre sí para un uso adecuado y no se hallan peligrosamente 
cerca de BREAK. 

La forma más común de utilizar INKEY$ en un programa de mo- 
vimiento de gráficos (tanto en juegos como en aplicaciones más se- 
rias) es usarla en una instrucción condicional para controlar el valor 
de una variable. Por ejemplo: 


IFINKEYS = “8” THEN LETX = X + 1 


Con ello se añade uno al valor de X, si se ha pulsado la tecla 8, 
pero X conserva su valor si no se acciona ninguna tecla, o se hace en 
una que no sea 8. Una vez se ha hecho esto, la variable puede utili- 
zarse para controlar, por ejemplo, en qué parte de la pantalla hacer 
una presentación. Veamos un caso: 


PRINTAT5,X; “0” 
Si adoptamos la convención de que X corresponda al eje hori- 


zontal e Y al vertical de la pantalla, cuanto mayor sea el valor de X 
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tanto más a la derecha se encontrará la representación, y cuanto 
mayor sea Y tanto más hacia la parte inferior de la pantalla se hallará 
la presentación. Sabiendo esto se puede redactar un pequeño progra- 
ma para controlar el movimiento de un carácter (un asterisco, por ejem- 
plo) en la pantalla mediante las teclas 5, 6, 7, 8 (las que tienen flecha): 


10B>IF INKHEYS="5" THEN LET X=xXx- 
110 IF INKHEYS="08" THEN LET X=X+ 
120 IF INREYS="7?" THEN LET VY=Y- 


130 IF INKEYS$="6"” THEN LET Y=Y+ 
1420 PRINT AT Y,X 3" s” 


poe op 


Antes de poder ejecutar este programa, necesitamos definir X e Y 
o no ocurrirá nada. Añádanse estas líneas al programa: 


109 LET Xz=0 
20 LET Y=0 


Ahora podemos ejecutar el programa. Lo que tenemos es un aste- 
risco en la esquina superior izquierda de la pantalla y el programa se 
detiene después de la línea 140. Para impedir que esto suceda pode- 
mos añadir una línea como: 


20060 TO 100 


Esto asegura que el ordenador continúa realizando su tarea una 
y otra vez. Ejecute el programa y pruebe a pulsar las teclas 5, 6, 7 y 8 
de una en una. Se verá cómo el asterisco se mueve dejando detrás 
una estela de ellos. Continúe llegando hasta el límite de la pantalla y 
siga pulsando la tecla. Empiezan a ocurrir cosas extrañas. Si se alcanza 
el fondo de la pantalla o su extremo derecho, el programa se detendrá 
con un mensaje de error. Esto es debido a que el valor de X se ha hecho 
mayor que 31, o que el de Y ha superado 21 y, en consecuencia, se 
pide al ordenador que haga la presentación fuera de los límites de la 
pantalla lo que, por supuesto, no puede hacer. 

Sin embargo, si se intenta que el movimiento traspase tales limites 
empezarán a suceder cosas más extrañas. ¡El asterisco empieza a 
desplazarse en dirección opuesta! No es que se haya estropeado el 


148 


ordenador, ni nada por el estilo, hay una simple explicación. Cuando 
el valor de X o el de Y es negativo (lo que sucede cuando tratamos 
de salirnos de la pantalla), la instrucción PRINT ignora el signo nega- 
tivo (toma el valor absoluto [ABS], si se prefiere), por lo que aparen- 
temente algunas teclas ¡cambian de función!.No es muy útil, que 
digamos, esta explicación, ya que lo que necesitamos es que el aste- 
risco regrese a la pantalla y se restaure el funcionamiento normal. Es 
preciso un método por el que el asterisco llegue al borde de la pantalla, 
se detenga y no intente salirse. 

El método más sencillo es impedir que X e Y tomen valores que 
puedan causar estos problemas. Los valores admisibles para X son 
de 0 a 31, y para Y, de O a 21. He aquí cómo hacerlo. Cámbiense 
las líneas 100, 110, 120 y 130 para que queden como sigue: 


a 2 AND X>0 THEN 
er Ja id ="8" AND X<31 THEN 
120 e _INKEVS="7" AND Y>0 THEN 


E IE “INKEYS="6"” AND Y<21 THEN 
LET Y=Y+1 


Esto hace que el asterisco permanezca como es debido en la pan- 
talla pero todavía nos queda el problema de la cola de ellos que se 
forman en su movimiento. Esto se debe a que no hemos previsto el 
borrado de la posición anterior cuando los asteriscos se mantenían 
en movimiento. La mejor forma de hacerlo es utilizar un segundo 
juego de variables para recordar la posición previa del carácter y que 
si es diferente de la nueva se produzca un espacio vacío en tal posición. 

Para ello añádanse estas líneas: 


SQ>LET A o 
cn 


LET B= 
E IF AS 5 OR B<>Y THEN PRINT 
206 GÓ TO 59 


El programa que se tiene ahora en el ordenador debe ser así: 


10 LET X= 
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109 IF INKEYS="5" AND X>9 THEN 


Xx=X- : 
La Ed INKEY$="35" AND X<S31 THEN 


X=X + 
555 LF INKHEYBA=”"7?" AND Y>0 THEN 
LET 


do 17 InkeYs="6" AND Y<21 THEN 
LET Y=Y+ 

135 IF As >X OR B<>Y THEN PRINT 
AT Bb, A; . . 

140 PRINT AT Y.,X;"* 

280 GO TO 50 


Ahora tenemos el diseño básico de un programa de movimiento 
de gráficos. Cuando se tenga necesidad de preparar un juego sobre 
esta rutina, posiblemente tendremos que alterar algunos detalles o 
cambiar el orden de las instrucciones pero los principios implicados 
serán similares. Como hicimos anteriormente podremos reducir algo 
la rutina, por ejemplo: 


rá SS OOO 
=* .. 

: da LE Yv=Y- (IMEI AND Y>9 

3 + TÍNKEY EY$="65” AND Y<21) 

15355 IF A<>X OR B< Y THEN PRINT 


AT B,A; 
1409 PRINT aT Y,X53"*" 
280 GO TO Se 


Esta versión ocupa casi cincuenta “'bytes'”” de memoria menos 
que la anterior versión. Puede combinarse la línea 140 con la 135 para 
formar una instrucción condicional ya que no se precisa de ninguna 
de las instrucciones PRINT a menos que se mueva el asterisco. Esto 
significa que podemos eliminar la línea 140. Veamos cómo cambiar 
la línea 135: 


135>IF A«>X_OR B<>Y THEN PRINT 
AT .”. ">: AT XxX; » ga 


. 
? » A El 


Recuérdese eliminar la linea 140. Existe el inconveniente de que 
si bien se ahorran cinco “bytes” más de memoria, cuando se ejecuta 
la primera vez el programa no aparece realmente el asterisco sobre la 
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pantalla hasta que se mueve. Por lo que quizá sea mejor no hacer 
esto a no ser que se tenga una necesidad extrema de capacidad de 
memoria. 


SCREENS y desplazamiento 
en pantalla 


Veamos ahora otro artificio útil para los programas de movimiento 
de gráficos: el desplazamiento ('“scrolling'*). Este movimiento puede 
hacerse automáticamente incluyendo la instrucción POKE 23692,-—1, 
que desplaza toda la presentación una línea más arriba, perdiéndose 
todo lo que haya en el renglón superior. 

El programa siguiente — CARRERAS DE COCHES—, muestra 
nuevamente la acción del desplazamiento para producir gráficos en 
movimiento. En este programa se intenta conducir una línea larga de 
pequeños cochecitos descendiendo por una pista zigzagueante de 
asteriscos rojos. Los controles son las teclas *Z'” y ““M” que mueven 
a izquierda y derecha respectivamente. 

Las líneas 80 y 90 mueven la pista aleatoriamente, asegurando que 
no se sale de los límites de la pantalla. La línea 110 presenta el coche 
que es desplazado (como ocurre con la pista) por las líneas 130 y 140. 

La línea 160 introduce una nueva función del Spectrum, SCREENS, 
que retorna información sobre el estado de la pantalla en el sitio 
que se especifica de acuerdo con la palabra SCREENS. En la línea 160, 
el ordenador utiliza SCREENS$ para mirar en la celda del carácter justa- 
mente en frente de donde se presentó el último coche. Si encuentra 
un asterisco allí, sabe que el automóvil está a punto de chocar, en- 
viando la acción a la línea 200 donde empieza la rutina '*SE HA ES- 
TRELLADO”. 


16 REM CARRERAS DE COCHES 
LET C=-Qq 


LET_T=Q 
40 CO SUD 258 
5 LET A=108 
54 LET X=13 
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39 LET K=INT Ai 2) 
a a e AND A>11+1(K=0 


LA _SIGUIENTE LINEA > 

1108 PRINT AT Y,X-1; INK_1;" 2 

120 _PRINT RT 26,A; INK 2*s”* ¡TA 
PR 

140 PORKE 23692,-1: PRINT 

150 PRINT INK 6; PAPER 2;AT 0,1 

¿ PUNTOS de 

169 e SEREÉNS (Y+1,X-121="*" TH 

170 LE? X=X- (INKEYS="Z") + (INKEY 


180 LET_ T=T+1 
1340 60 TO e 


¿»X-1; "Y 
210 NT AT 6,8; FLASH 1; BRIG 
43" T ESTRELLADO: 1” * 
220 PRINT AT 8,18; FLASH 14; BRI 
1; INK RND*7?; PAPE dd 
UNFTUAC I 5 e 
30 «01 AND r20-AND+26 
244 GO TO 
250 FOR Y=4 TQ 7? 
260 AD Z 
270 POKE USR "2"+3,Z 
280 NEXT 
290 R 
a IN 00110119,BIN 68119 


3080 _ DATA 
110,BIN CO111110. BIN 00610100,5 
IN GOL111110, JBIN Ó0110110,BIN ÚS 


A continuación siguen otros varios programas para ilustrar las ideas 
sobre gráficos en movimiento de las que hemos tratado. 


La flecha roja 


El objeto de este juego es disparar, pulsando cualquier tecla excep- 
to BREAK, a la FLECHA ROJA cuando vuela sobre su base y si hay 
acierto se apunta un tanto. Sólo se dispone de un número limitado 
de disparos, por lo que hay que tratar de alcanzar la mayor puntua- 
ción posible antes de que finalice el juego. 

He aquí el listado: 
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M LA_LINEA_10 CONTIENE 
REM_LOS_ GRAFICOS A,B,C 
SUB_200 


P 
R INK . 1 e 
a K 2" 
z 205 INK 32” 
20 LET H=9 
30 LET M=H 
404 LET NE TOS 
50 FOR X=g 1 


3 
60 IF HÍME259 THEN _ GO TO_ 19909 
70 REM EL GRAFICO _D EN LA 589 
580 PRINT AT Y,X; INK 2;" »" 
S9B8_IF INKEYS$<>"”"" AND x=14 THEN 
60 $ 140 


100 IF INKEYS$<>"" THEN LET M=M+ 

116 NEXT _X 

126 PRINT AT Y,20;" * 

138 GO_TO 409 

140 LET H=H+1 

150 FOR F=1 TO 30 

16€ PRINT_AT Y,X-2; INK_2;5 PAP 
R 4; BRIGHT _ 2; FLASH 2;" IMPACTO" 
Ss FOR Z=1 TO 20: BORDER _RND*7: B 
EEP ,01,59-3*Z: PRINT AT Y,X-2;” 

170 NEXT_F 

2% PRINT AT 4,14; PAPER 7; INK 

190 60 TO 4u 

200 FOR uU=08 TO 7 

210 AD a 


READ 

220 PORKE USR "£"+J,0 

230 NEXT y 

248 FOR _J=0 TO 7 

250 READ Y 2 

256 POKE USR """+J,0 
NEXT y 


286 FOR J=08 TO Y 
READ 9 

3006 POKE USR "M"+J,0 
NEXT 


320 FOR J=8 TO 

334 READ Q 

340 POKE USR "»"+3,0 
NEXT 


A] 
400 RETURN 
0 DATA BIN 00000001,5IN 00085 


000,BIN 006110000.BIN 6118 
LóboDaS 

BIN 11111112,BIN 121112 

BIN '11100000,BIN 11100 

110080,BIN 000811008,B1 
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0011008,BIN 00000110,BIN 00089 


DATA BIN 00001000,BIN 10999 
0,BIN 01099010,BIN 20111111, BI 
oi03001 10,BIN 106000100, BIN 0909 


7] 
17% FOR G=1 Za 
1010 BEEP -d2 7 Sá: BEEP ,01,49-6 
028 NEXT G 


La línea 10 establece la parte principal de la presentac ón, la que 
no se mueve durante el programa. H es la variable que recuerda la 
cantidad de impactos que puntúan y M la de fallos (disparos que no 
alcanzan al OVNI). Ambas están inicialmente puestas a cero. La línea 40 
establece la ordenada Y de la FLECHA en un valor aleatorio del 7 al 13. 
La instrucción PRINT toma el valor del número entero más próximo 
si una de sus coordenadas no es un entero por lo que RND*6 + 7 
varía de 7 a 13, como decíamos. Esto genera la posición de la FLECHA 
en la parte superior de la pantalla. El bucle principal que controla 
el vuelo de la nave en sentido transversal de la pantalla empieza en la 
línea 50. La posición de partida es O, y la final, 19. La linea 60 com- 
prueba si se han hecho todos los disparos y, en caso afirmativo, remite 
el programa a la línea 1000. La instrucción 80 presenta la FLECHA. 
Obsérvese cómo se borra la posición anterior a la que ocupa en cada 
instante el móvil mediante el espacio vacío que hay detrás de él. La lí- 
nea 90 comprueba si se ha pulsado una tecla y si la FLECHA se halla 
justamente encima de la base, enviando después la acción a la rutina 
IMPACTO en la línea 140. Esta añade 1 a la puntuación y produce 
una presentación de una llamativa explosión en el punto del impacto, 
remitiendo después el programa a la línea 40 nuevamente para pro- 
ducir otra FLECHA. Sin embargo, si se ha pulsado una tecla y la nave 
no estaba encima de la base, se añade 1 al número de fallos. Cuando 
la FLECHA alcanza el final de su trayectoria, el programa sale del 
ciclo FOR/NEXT y la línea 120 borra la posición final del aparato 
volador, mientras que la 130 retorna el programa a la línea 40 para 
empezar de nuevo. 
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El engullidor de basura 


En este juego se trata de eliminar la basura que aparece en la pan- 
talla en forma de configuraciones color magenta. Se controla el ““engu- 
llidor”” con las teclas 5, 6, 7 y 8 con los movimientos correspondientes 
a las direcciones de las flechas que tienen dichas teclas. La basura 
es engullida al pasar sobre ella; se dispone de un tiempo limitado y se 
expresa en cada momento los elementos de basura que se han reco- 
gido. El bucle de las líneas 40 a 60 establece aleatoriamente las posi- 
ciones de la basura. 


118 LET Y=Y-(IN 
3) +(INKEYH="6" HND 
120 


a re nd DE BASURA 
REM GRAFICO_M EN 50 

OR Gui TG 50 

ER, AT RAID+16+3,RND+20+4;5 


NEXT G 
257 0 


=B 

FOR 6=3 TO 509 

LET A=X 

LET E 

ai AN AND Y>1 
Y<20 


LET X=X- pd AND X>1 


139 IF ATTR (Y,X)2)=49 THEN LET_P 
UNTOS=PUNTOS +1: "PRINT 0,8; IN 
K RND*7; PAPER 9; FLASH 4;%L 
NT ON ES “; ¿AT 20,0;"T1I 
EMPO RESTANTE = "¡5OD-6;" '' 

140 1F ATTR (Y, x3=49 THEN BEEP 

15% REM GRAFICO D EN 160 

160 PRINT AT B,A;" "¿AT Y,X; IN 
2; “e- 

170 Ne 

186 PRINT AT INK_RND=7; PA 


á 


Ebo. -1,RND+50: GO TO 199 
FOR A=9 TO 7 

RE 

POKE USR “X"+*A,0 


NEXT A 
A BIN 10100101,5DIN 01210 


DAT 11 
BIN 10190181,BIN 01011618,B1 
011010,BIN 10 i01 


100101,BIN O 
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6,BIN AS 
Gu 225 al TO 

a 
Us] 


* PORKE Dsr "£"+8,0 
NEXT A 


JE (e $82 Ju o ju Ju jus jr ja 


E 

2 DATA BIN 411111, Ei e1111 
¿BIN as 111110090,51 
1100000,BIN 11111000,BIN 6111 
,BIN 001 

€ BOR 2: PAPER 6: CLS 

> ET P 


Ahora podemos explicar cómo saber lo que ocurre en la pantalla 
de forma que el ordenador se entere de que el ““engullidor'”” va a pasar 
sobre algo. Este artificio se utilizará multitud de veces en los progra- 
mas. La función esencial es ATTR que, como se ve en las líneas 130 
y 140, es similar en forma al enunciado PRINT AT. Las líneas 130 y 140 
comprueban los atributos del carácter del cuadrado Y,X antes de que 
se represente allí el ““engullidor'””. Si se encuentra un valor de 49, sabe 
que tal cuadrado contiene basura, con lo que el tiempo y la puntua- 
ción son actualizados. El número realmente producido por la función 
ATTR depende de que el carácter destellee (FLASHING) o no, de que 
se le aplique o no brillo (BRIGHT) y de los colores de la tinta (INK) y 
del fondo (PAPER) en la posición considerada. 

Debido a que la función ATTR es un poco difícil de utilizar, es 
mejor establecer una pequeña rutina para que presente los resultados 
de dicha instrucción antes de que se decida qué valor se desea pro- 
bar. La “ausencia” de un valor producido cuando el “*engullidor”” pasa 
sobre un espacio vacio no es recomendable; en lugar de esto, com- 
pruébese la presencia de uno determinado. Así lo hicimos al escribir 
el programa presente, al tener la línea 140 vacía al principio, y la 130 
con PRINT AT 0,0;ATTR(Y,X), y observando después lo que sucedía 
cuando el “engullidor”” iba a pasar sobre un cuadrado con basura. 
Recomendamos que se siga este método. 


La manipulación de cadenas 
alfanuméricas 


Finalmente, hay otro método para producir gráficos en movimiento 
en BASIC, por medio de variables en cadena o alfanuméricas que 
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no se utiliza muy frecuentemente. Estas cadenas pueden represen- 
tarse muy rápidamente, y las grandes posibilidades del ordenador 
para su fraccionamiento (tratado anteriormente) nos permiten disponer 
de una poderosa herramienta. El método básico consiste en asignar 
un caracter o conjunto en cadena suficientemente largo para cubrir 
la zona de la pantalla utilizada para su movimiento y presentación 
en una localización determinada. Para simular el movimiento se pueden 
presentar en pantalla diferentes partes de conjunto o cambiar el 
contenido de dicho conjunto. 

Preséntense en pantalla diferentes partes de la cadena por orden. 
Pruebe este corto programa: 


10 DIM AS1(52) 
26 LET AS1(1)="=+»" 
FOR A=532 TO 1 STEP -2 
44 PRINT AT 20,0;ASI(A TO ) +A t 
as 


NEXT_A 
60 GD TO 30 


¿Puede verse por qué es necesario que la línea 30 cuente a/ revés 
de 32 a 1? ¿Qué sucedería si dicha linea contase en sentido directo 
del 1 al 32 (30 FOR A = 1 TO 32)? Dibújese en un trozo de papel 
(o utilice la impresora, si se dispone) cada una de las fases del pro- 
grama necesarias para hacer la presentación. Adviértase la gran velo- 
cidad posible y cómo se hace simultáneamente la presentación en una 
posición y el borrado de la precedente. Es posible conseguir un efecto 
interesante cambiando la línea 20 para que diga 20 INPUT AS e in- 
trodúzcase un mensaje de hasta 32 caracteres. Esto es similar a un 
tipo de presentación que se hace en los escaparates con fines publi- 
citarios aunque no se trata de la clase de efecto que uno quisiera 
encontrar normalmente. 

Este método de producir gráficos en movimiento a partir de ca- 
denas es muy útil porque no altera el contenido de las cadenas/con- 
juntos, sino que las presenta en orden diferente por lo que su infor- 
mación se puede recuperar fácilmente en cualquier momento. Pueden 
servir para una presentación de escaparate como la que sigue a con- 
tinuación. 


248 INPUT "ENTRE SU o AS 


a dd: 
se FOR E=1 TO LEN A$+33 
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74 PRINT AT 5,0; (” 
"A+" 
“) 1D 7 


O B+31) 
50 LET S=S-(S AND INKEYS$="F" A 
ND_5>1)+15 AND_INKEY$="D-) 
20 EYS="A" THEN GO SUB 1 


106 FOR AS 1 TOS 


Lo que hace es pedir que se introduzca un mensaje de presenta- 
ción; cuando se ha hecho, tal mensaje empieza a aparecer desde la de- 
recha de la pantalla hasta la izquierda por donde desaparece, repi- 
tiéndose nuevamente la secuencia. La presentación empieza a una ve- 
locidad lenta pero puede acelerarse presionando la tecla **F” y hacerse 
menos rápida con la tecla **D''. La velocidad más alta lo es mucho y la 
lenta es muy reducida. Se puede “congelar” la presentación por un 
corto espacio de tiempo pulsando la tecla **A”'. En cualquier momento, 
es posible detener el programa mediante el mando BREAK. 

Si el ordenador tiene suficiente memoria disponible, el tamaño del 
mensaje se limita teóricamente por el del mayor conjunto que pueda 
manejar. En la práctica, sin embargo, si se llena la pantalla con el 
mensaje cuando se entra (es decir, tiene más de 24 líneas de 32 carac- 
teres cada una), los que faltan han de introducirse a ciegas pues no 
caben en la pantalla. Trate de hacerlo. ¡Acabará con los dedos can- 
sados! 

El mensaje empieza a aparecer desde el lado derecho de la pantalla 
y se desplaza en ella hacia la izquierda. Una vez que ha desaparecido 
por dicho lado reaparece como antes y el ciclo se repite una y otra 
vez. La velocidad puede variarse como se ha dicho antes y lo mismo 
sucede con la “congelación” de la representación en pantalla. 

La línea 70 es bastante compleja: para impedir cambiar el contenido 
de la cadena A$, todo lo que se halla dentro del primer:par de parén- 
tesis es tratado como una larga cadena compuesta de treinta y dos 
espacios, seguida de la cadena mensaje A$ y, a continuación, otros 
treinta y dos espacios. El fraccionador de cadenas en el segundo par 
de paréntesis selecciona qué partes de esta larga cadena han de ser 
presentadas. Obsérvese que A$ todavía conserva su propia identidad. 
Cualesquiera que sean las partes que se seleccionen, la cadena 
presentada tiene siempre una longitud de 32 caracteres. 
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Tal como está, el programa no permite cambiar el mensaje una 
vez en ejecución; hay que detenerlo con BREAK y ejecutarlo nueva- 
mente. Una forma de poder hacer el cambio es añadiendo esta línea, 
de manera que al pulsar *'1”"(EDIT) el programa vuelva a iniciarse 
automáticamente.: 


85 IF INKHEYS="1” THEN RUN 


Movimiento de los elementos del conjunto (array). Pruébese este 
programa: 


10 DIM A$ (32) 

2Q FOR A=1 TO 32 

90 LET ASIA) ==" +” 

40 PRINT AT 20,0;A$ 
50 LET_ A$S(A)=" " 

SW NEXT H 

70 60 TO 208 


Este método nos proporciona una gran flexibilidad. Pueden mane- 
jarse cadenas rápida y eficientemente haciendo uso de las posibilidades 
del ordenador para operar con ellas. Las cadenas son muy útiles 
para almacenar información ya que se puede tener acceso a ella con 
rapidez y facilidad en comparación, sobre todo, con las instrucciones 
REM; la velocidad con que pueden ser presentadas en pantalla las 
convierte en un método atractivo para las presentaciones. La principal 
desventaja es que se pierde mucha memoria ya que la información 
se mantiene tanto en el archivo de presentación como en los con- 
juntos (arrays) implicados, y posiblemente también en el área del 
programa. He aquí un programa de presentación de movimiento que 
se basa en la información que hay en las cadenas presentadas. 

El programa se denomina “BASIC Invaders”' porque es una versión 
del juego comercializado “LOS INVASORES” escrito en BASIC. 
Necesariamente está muy simplificado y se incluye con el fin de demos- 
trar el uso de las cadenas para presentaciones en movimiento. Una 
ola de invasores desciende amenazadora hacia usted que se puede 
mover a izquierda y derecha con las teclas 5 y 8 respectivamente. Se 
dispara a los invasores con la tecla 7. Si usted está directamente bajo 
el invasor al disparar, la nave queda destruida y desaparece. 
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Hay siete olas de invasores y se precisa destruirlos a todos para 
ganar. 


1 REM LOS IMUASORES 

2 REM GRAFICO DE F EN 40 
3 REM GRAFICO a B EN 1289 
E BORDER Sa” PER 0: CL5S 


58 LE XEINT (ANDEBD) 
> INT AT 5,12; INK X/5; PAP 
ER 94, PELASH 1) BRIGHT 15% OLA: 
“8% LET C=8 
90 FOR B=D+9 TO 19 STEP 2 
190 FOR A=8 TO 31 
110 LET X=X+(INKEYS="8" AND X<3 


1) -(INKEYS="S5S" AND X>D) 
120 PRI AT B,0; INK RND*2,A 


«id Ari 3d * AND Cx>xX;AT 20, Xx; 

130 IF ali THEN GQ TO 2487+> (68 

AND D=7 

140 LEr C=xX 

150 e REA E Za Es Eds 1: BEEP .82 
20: pS (X+1) = HEN LET AS 
x+1) =p 7 ab INK 6;PAS 


: NK 2 
; PAPER 0; BRIGHT 1; Alh E “LA 
PUNTUACIÓN ES MT etia>187 


165 LET Ajs=zPs(14 TO )+A5( TO 3) 
170 PRINT AT 6,0;5B5$ 
188 NEXT BS 


xXT 
220 PRINT AT 29,€;”" ” 


NEXT D 

240 PRINT FLASH 1, INK RNDx7;, P 
APER 9; “HAN ATERRIZADO! 3” 

250 BEER. - 1, ANDI38: POKE 23692 
s “1: 

260 PRINT IMK RNDx7;, PAPER 39,“T 
ODOS LOS INUASORES DESTRUIDOS” 
265 POKE 23692,-1 

270 BEEP .01,RNDx5S0: GO TQ 2640 
2580 REM COMPOSICIOÓN DE LOS INUA 


SORES 
294 FOR uUu=a TQ 7 
506 READ O 
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318 POKE USR "R"+J,0 
328 NEXT y 
330 _DATA_BIN 00111119,BIN 98121 
218,BÍN del22110 BIN eóel1190 Bi 
c6081000 BIN, eí110111, BIn alce 
0007. BIN 0104 
340'REM COMPOSICION DE LA BASE 
359 FOR _J=8 
360 READ 
350 PORE Usa 7 
280 NEXT y 
390 DATA BIN 01111119,BIN 01111 
¿419,BIN G1111119.BIN 0í111110,81 
cíza 211100011,BIN 1108 
dul1. EE doDed1. SiN 16600001. 


dae LET SC= 
410 RETURN 


El programa derrocha mucha memoria. No se ha intentado conser- 
varla y es posible que usted pueda ganar velocidad con modificaciones 
menores. Las dos cadenas interesantes son A$ y B$. La segunda esta- 
blece 32 espacios y se utiliza para evitar que haya que pulsar *'(32 es- 
pacios)'” en varios puntos del programa. A$ es la cadena que repre- 
senta a los invasores, y se establece inicialmente en 32 elementos, 
el número de caracteres es una línea de la presentación. La línea 40 
pone el estado inicial de los caracteres y puede ser cualquier combi- 
nación de espacios y gráfico y podría componerse precisamente de 
32 caracteres. La variable que controla la posición del jugador es X y 
su valor se altera en la línea 110. La 120 realiza la presentación prin- 
cipa, actualizando la de los invasores y la de la posición del jugador. 

La línea 130 compara los invasores con una cadena de 32 espacios 
(B$) y si de la comparación se deduce que A$ no contiene invasores 
(es decir, sólo se trata de espacios vacíos) salta a la siguiente ola de 
atacantes o, si se está en la última ola, pasa al mensaje de victoria 
de la línea 260. La 150 tiene particular interés ya que es la que analiza 
la cadena en busca del carácter que está justamente encima del de- 
fensor y si encuentra un invasor allí lo convierte en un espacio vacío. 
Esto sólo se realiza si está pulsada la tecla 7. 

El resto del programa se refiere principalmente al tratamiento de 
tiempo de los bucles y de la disposición de las diferentes olas de 
invasores. 

Si se está conservando la totalidad de la información de pantalla 
en una cadena-conjuntc (o una parte de aquélla implicando líneas 
por encima o por debajo), pueden utilizarse dos métodos diferentes 
empleando distintos tipos de conjuntos. Considérese el caso de toda 
la pantalla de 22 por 32. Se requerirá una cadena/conjunto (array) 
de 22 por 32 elementos y esto se puede lograr mediante: 
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(1) Un conjunto (array) de dos dimensiones, establecido por la 
instrucción DIM A$(22, 32). Se puede utilizar la instrucción PRINT AT 
en las coordenadas para tener acceso a los elementos, recordando 
que los elementos del conjunto (array) empiezan con 1 y las coorde- 
nadas de PRINT con 0. Por ejemplo, para una presentación en Y,X del 
carácter T (PRINT AT Y,X;CHRS$ T) se escribiría LET A$ (Y + 1,X + 1) 
= CHR$ T. El problema que tenemos con este método es que se pre- 
cisa una larga introducción PRINT AT 0,0;A$(1);A$(3) ... As$(21), 
A$(22). Sin embargo, puesto que la razón principal de utilizar un con- 
junto (array) para la presentación es la facilidad de acceso a la infor- 
mación, esto sólo es necesario al principio de un programa ya que a 
partir de entonces solamente es preciso presentar (PRINT) las partes 
del conjunto (array) con las que realmente estamos tratando. Tome- 
mos, como ejemplo, el juego de las damas. Necesitaríamos todo el ta- 
blero en la pantalla al principio del juego pues precisamos mirarlo en su 
totalidad; sin embargo, cuando llegara el momento de presentar movi- 
mientos sólo sería necesario presentar las partes del conjunto (array) 
que cambian con el movimiento, la parte a la que se desplaza la pieza 
y posiblemente otra donde se capturara una pieza adversaria. 


(2) Utilicese un conjunto (array) unidimensional con 704 elementos 
para una presentación de 22 por 32, estableciendo la sentencia DIM 
A$ (704). Esto puede tratarse como un mapa de memoria en pantalla y 
es posible presentarla de una vez con la instrucción PRINT AT 0,0;A$, 
que es muy rápida de ejecución. Los elementos tienen fácil acceso. 
Para mover un carácter sobre la pantalla tenemos que hacerlo en el 
conjunto (array) de forma que se desplace satisfactoriamente. Para 
comprender cómo hacer esto hay que saber la disposición del conjunto 
(array) en la pantalla. He aquí un diagrama: 


2 800 |» | 


Ss Juro 
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La figura muestra un fragmento de la parte superior de la pantalla. 
Y y X son las coordenadas de PRINT AT Y X:función. ¿Puede verse 
cómo se relacionan Y,X con los subíndices de A$? Hay 32 elementos 
de A$ en cada línea de la presentación. La X empieza en O mientras que 
los subíndices del conjunto (array) empiezan en 1 por lo que Y,X se 
corresponden con A$(Y*32 + X + 1). Cuando se mueve un carácter 
puede ir a una de las ocho localizaciones que le rodean, como se ve 
en la figura que sigue: 


Supongamos ahora que el invasor está en AS(A). Sigue una tabla 
que muestra las diferencias entre los subíndices de los elementos que 
representan las posibles posiciones por todos los lados (cuanto hay que 
añadir al viejo subíndice para hacer el nuevo). 


Dirección del movimiento Cuánto hay que añadir a A 


1 
2 
3 
4 
5 
6 
7 
8 
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INKEYS$S cambiado 


En este momento hemos de tener cuidado de no pasarnos los 
límites del conjunto (array), lo que sucedería con la utilización de la 
instrucción PRINT para evitar que el programa se destruya con un 
subíndice de error. Se pueden utilizar las teclas del cursor para con- 
trolar los movimientos verticales y horizontales, y las del cursor cam- 
biado para los diagonales. A continuación sigue un corto programa 
que mueve un gráfico por toda la pantalla mediante control de cursor 
para ilustrar cómo puede hacerse. 

Pulsando las teclas 5, 6, 7 y 8 simultáneamente con una tecla 
SHIFT se efectúa el movimiento con un ángulo de 45” en sentido 
directo con respecto a la dirección de las flechas que hay en las 
cuatro teclas primeras. Estas solas producen movimientos en la direc- 
ción de las flechas. Este programa no permite impedir que ocurran 
errores de los subíndices debido a movimientos fuera de los límites del 
conjunto. 


14 DIM A$(t704) 
28 LET o IRND784) +1 


Aina AND INKEYH="7"*) 


A $ 

393+(32 AND INKEYGE="8")33+(31 AND I 

OS AUD 10)-(1 AND INKEYGA="S” 
ARA 3) 


tA 
60 PRINT AT ,0;P5 
70 GO TO 30 


La razón por la que SHIFT-5, SHIFT-6, SHIFT-7 y SHIFT-8 se han 
representado por CHR$ 8, CHR$ 10, CHR$ 11 y CHR$ 9 es porque 
no pueden entrarse directamente desde el teclado (actúan como con- 
trol del cursor, si se prueba), por lo que la forma más fácil de intro- 
ducirlas es por medio de la función CHR$. 

Debe destacarse que la utilización de las cadenas para crear grá- 
ficos en movimiento está limitada a aquellas aplicaciones donde la 
velocidad no tiene gran importancia mejor que en las que, aun siendo 
importante, no es excesivamente esencial, prefiriéndose la facilidad de 
acceso a la información. Un ejemplo lo tenemos en los juegos de ta- 
blero, como las damas, en los que las piezas se mueven ocasional- 
mente pero se precisa un rápido acceso a la información. 
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Introducción a la aritmética 
en el ordenador 


Eche una rápida ojeada a esta sección antes de leerla en detalle 
ya que pudiera ser que no haya nueva información para usted. Si es 
este el caso, no se preocupe y pase las páginas hasta la próxima 
sección. 

Los símbolos para las diversas operacioes en el lenguaje BASIC 
son probablemente bien conocidos a estas alturas. Son: multiplica- 
ción (*), división (/), substracción (—), adición (+) y potenciación 
(+ — SHIFT H). El ordenador sigue un estricto orden de prioridad 
para sus operaciones. 

Por prioridad se entiende el orden en que se evalúan las expre- 
siones. El ordenador no sigue el de la presentación en pantalla. Por 
ejemplo, se habrá advertido que una expresión entre paréntesis po- 
dría producir un resultado diferente comparado al que se obtendría 
si se omitieran estos paréntesis (en realidad esta omisión puede dar 
lugar al rechazo del ordenador por error de sintaxis). Cada tipo de 
operación recibe un orden de prioridad que se mide con números 
del 1 al 16. 

Las operaciones con el orden de prioridad más elevado son eva- 
luadas primero y las que tienen el mismo se realizan de izquierda a 
derecha. En efecto, el ordenador mira a la expresión y observa la parte 
que tiene mayor prioridad y se dice a sí mismo: «Un momento, ami- 
gos, hay algo con preferencia allí. Volveré con vosotros en un minuto 
cuando llegue vuestro turno.”' 


Operación Prioridad 


(0) 16 
Subindicado y fraccionamiento 12 
Todas las cadenas 11 
4 10 
— (negación) 9 
id 8 
/ 8 
+ 6 
— (substracción) 6 
=>. €, <=, =S,<* 5 
NO (NOT) 4 
Y (AND) 3 
O (OR) 2 
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Téngase en cuenta que un número se supone positivo a menos que 
se halle precedido del signo menos. En forma similar, a no ser que 
aparezca el punto decimal (la coma en nuestras matemáticas) con un 
número, el ordenador lo considera entero. Aunque se puede utilizar el 
punto decimal en el ordenador, las comas no se admiten para faci- 
litar la lectura de los números. El uso de la notación científica en 
números muy grandes y muy pequeños se explicó en la sección dedi- 
cada a las variables. Refiérase a ella si se precisa un recordatorio 
sobre dicha notación. 

El BASIC en este ordenador funciona con bastante rapidez, como 
puede apreciarse con los siguientes programas. El primero de ellos 
trata de progresiones aritméticas. Se introduce el primer término, 
el número de términos y la razón; el ordenador producirá la informa- 
ción con suma rapidez. 


10 REM PROGRESION ARITMETI 
20 PRINT "RESOLVERE PARA SSTeD 


30 PRINT "PROGRESION ARITMETIC 
40 PRINT "DE LA INFORMACION DA 
0 PRINT *"DEME EL PRIMER TERM 
64 INPUT PRIMERO 


, RAZON 
1106 PRINT “*"CUANTOS TERMINOS?" 
INPUT TERMIN 
3130 LET TERMINOS= INT (TERMINOS 
cLS 
150 POKE_23€69292,- 
PRINT 


160 INK_85 PAPER 0; "PROGR 
ESION_ARITMETICA” 


180 PRINT INK 2; * "TERMINO"; TAB 
13; "UALOR” 

150 LET SUMA= 

200 FOR L=0 FE TERMINOS-1 

210 LET W=L +4 


228 LET 0=PRIMERO+(L*RAZON) 
258€ LET SUMA=SUMA+0 
240 PRINT TAB 2;54;TAB 2130 


NEXT_L 
26 PRINT INK 2;TADB 4;* "LA SUMA 
ES "¿SUMA 


RESOLUERE PARA USTEDES LA 
PROGRESION ARITMETICA A PARTIR 
DE LA INFORMACION DADA. 
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DEME EL PRIMER TERMINO 
234 
Y LA RAZON? 
13.S 
CUANTOS TERMINOS”? 


PROGRESION ARITMETICA 


TERNAAS red 
2 247.5 
3 261 
á 274.S 
s 2383 
6 3vi.S 
7 315 
3 328.5 
3 342 
19 355.5 
311 369 
12 352.5 


LA SUMA ES 3699 


Como puede verse, el programa también determina la suma de 
los términos. 


Números primos 


Los números primos son fáciles de determinar. 


10 REM NUMEROS PRIMOS 

20 PRINT “ENTRAR EL UALOR DEL“ 
30 PRINT “NUMERO PRIMO MAXIMO" 
40 PRINT TAB 4;"“QUE SE DESEE" 


INPUT A 
60 DIM Z(A)J: LET KL=A 
70 FOR u=1 TO A: LET Z(íull<=il 
50 NEXT ul: IF Ax4d THEN GO TO 2 


390 LET Z(di=5S: LET KlL=d 
10e LET IZ=S 
110 LET IZ=12Z232 
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120 IF. IZ>A THEN GO TO 2Y44u 
125 LET JYO= 

130 LET EX=IZZ (JWO+1) 

1490 IF EX=INT (EX) THEN GO TO 1 


¿e IF EX:Z1(J0+1) THEN 60 TO 13 
160 LET_JO=.JO+1 
178 GO TO 138 
150 o Ar dl LET Z1(KL)=1Z 


298 POKE Cozasz,- 
210 A "Los NÚMEROS PRIMOS H 


EL 
330 PRINÍ INK 2; PAPER 8; "NUM.D 
E PRIMOS" "PRIMO os" 


KL 
250 PRINT TAB 4;C,Z1C) 
XT C 


ENTRAR EL _ UALOR DEL 
FUMERO_PRIMO_ MAXIMO 
UE SE DESEE 


a 
UM DS sn "RIM dd EL 20 


HUM. a PRI A 
3 2 
3 3 
4 5 
S 7 
=] 9 
7 11 
=] 13 
3 17 
19 19 


La capacidad matemática del ordenador puede utilizarse, por 
supuesto, para producir otra clase de información. 


Un programa de estadística 


El siguiente programa, una serie de rutinas estadísticas, puede 
fácilmente dividirse en otros cuatro más cortos aplicando los números 
de línea desde el 1000 al 1500, del 2000 al 2510, del 3000 al 3510 o 
del 4000 al 4100. También habrá que asignar el COUNT” (LA CUEN- 
TA) y el TOTAL para cada programa. 

Los cuatro programas son: 
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Media aritmética 
Media geométrica 


Media armónica 


Factorial 


Es el promedio de un conjunto de números. 

Es la raíz enésima del producto de los números, 

donde n es el total de ellos. 

La media armónica se deriva de los recíprocos de 

los números entrados. 

Un factorial es el producto A*(A— 1)*(A—2)*(A—3)' 
. *(2)*(1), donde A es el entero aplicado en la 

línea 4030. Como esta función sólo es posible con 

números enteros, la citada línea cambia cualquier 

número no entero en un entero. 


La rutina desde la línea 9000 presenta un repertorio de elecciones. 
Adviértase el uso de GO TO A*1000 en la línea 9600. Esto es una forma 


abreviada de decir: 


IFA = 1 THEN GO TO 1000 
IFA = 2 THEN GO TO 2000 
IFA = 3THEN GO TO 3000 
IFA = 4 THEN GO TO 4000 


Se puede hacer frecuentemente uso de esta técnica en los pro- 
gramas mandados por un repertorio. 


206 GO TO 


30 REM EL E 
TRO DE_ LAS rn rl ¿»2049 ,3049 
PROCEDE DE LA 


NTRECOMILLADO DEN 


REM *+* EN 
PRINT "MEDIA ARITMETICA" 


1020 PRINT "INTRODUZCA LOS NUMER 


la] 
A] 
58 


IO) PD pa $ qu o pus 4 Á q 1] 30 ¿a 
O00P? EPRROO00OS Q 
POQUIMPPODOJ ar 
Riola 


8 
H 
5) 
oe 
o 
a. 
o 
dE 


IF 
POKE 23692 NT 9 
LET TOTA BL=tOTAL+DAL os 


PRINT "MEDI 


PRINT (¡QUE DESEE PROMEDIAR» 
PRINT_"E “E” AL FINAL D 


IF QOb$="" THEN GO 
O$="E” Ca G0_TO a. 


PRELARA 
ICA" 
169 


170 


sen” a e "PONGA LOS NUMEROS A 
3838 Ae "DESEA HALLAR SU MEDI 
2040 PRESS "PONGA “E” AL FINAL b 


2 
1 O 0%: 1F G4$="” THEN 60 


206 
2078 Se DO5="E" THEN $0 TO 2120 
2090 LET CONT=CONT+i 
29090 LET TOTAL =TOTAL «vaL e 
a. PORKE 23692,-1: $ 
TO 2069 


119 GO _TO 

2120 PR *"LA_ MEDIA GEOMETRICA 
5 ";¡TOTAL*t (1-CON 

SNS G0 TO Y 


REM RAEE EA RE AREA 
3000 REM ea Eo EA ICA 
3910 PRINT ARMONICA" 
3922 PRINT, "PONGA LOS NUMEROS A 


E 

3030 NTE "DESER HALLAR SU MEDI 
3049 PRINT "PONGA “E” AL FINAL D 
E DATOS” 

3050 INPUT 0%: IF O$=""” THEN GO 
Ss asa 

60 IF O$="E"” THEN GO_TO 32120 

3880 POKRE_23692,-1: PRINT 05 
3090 LET TOTAL=TOTAL+(1-VAL 08) 
3109 LET_CONT=CONT +1 


42910 PRINT "FACTORIAL” 
4020 A UN ENTERO 


So O NUM: IF NUM>=34 THEN 
4940 LET im INT (NUM) 

4950 LET 

4950 FOR B=1 TO Num 

¿0 *D 

4100 PRINT_“*"EL FACTORIAL DE ",N 
UM; ES "¡A 

5209 Dee EXAEFLEALEE EEE LEA EEES 
3900 PRINT_ “ "SELECCIONE EL PROGR 
aja SUE A SEE” 
3991 "2 —- MEDIA ARITMETIC 
9020 PRINT "2 - MEDIA GEOMETRICA 


3339 PRINT "3 —- TÍ ARMONICA” 
2040 PRINT "á4 - FACTORIAL" 


39050 PRINT "S -— FIN”: PRINT 
90609 LET _AS=INKEY $ 
O OSA AS$<" 1” OR AS>"S" THEN GO 


gq1 

1109 LET CONT=0 

2120 PRINT CHEPELERELE LE LL ALLLEL 
RERARERAA ARO 

130 GO TO Az1000 


El ordenador puede realizar tareas más complejas. El programa 
siguiente, por ejemplo, calcula la media, la desviación tipo, el error 
probable de la media, y la varianza de hasta 20 distribuciones de fre- 
cuencias con 240 individuos en cada una. Igualmente puede deter- 
minar la diferencia significativa entre dos distribuciones cualesquiera 
con la ayuda de la prueba T de “Student” 


10 REM PRUESA T 
12 REM DERIVADA DE _UN PROGRAMA 


DE _ ALLAN NORLIN 
13 REM POR ANDERS OLUND 
20 DIM Xx (240) 
22 DIM N(20)3 
24 DIM M(2D) 
26 DIM S (20) 
28 DIM E(20) 
30 DIM U(20) 
32 DIM G(20) 
PRINT "ESTE PROGRAMA, CALCU 


110 PRI 
LA LA _ MEDIA," 
115 PRINT “LA DESUIACION TIPO, 


EL ERROR" 

21185 PRINT "PROBABLE Y LA VARIAN 
ZA_PARA" 

2122 PRINT "UN NUMERO DE DISTRIB 
UCIONES" 


o vil "DE FRECUENCIAS (MAXI 
E "DISTRIBUCIONES), Y L 


138 PRINT "T DE STUDENT 
"DETERMINA SI "“Har UNA 


sa PRINT "SIGNIFICATIVA ENTRE 
"DISTRIBUCIONES DE FR 
"CUALESQUIERA. 
ads "DESEA LOS RESULTADOS 


147? PRINT "LA PANTALLA (D3 O TA 
MBIEN EN” 


171 
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145 PRINT y IMPRESORA 1P)3” 


2 S= 
170 PRINT CUANTAS DISTRIBUCION 


1980 INPUT M 
200 CEL G=G+1 


A "DISTRIBUCION DE FREC 
245 po ASAS INDIVIDUOS?" 


O 


2060 LET =D ILSAN 


¿262 LET 52= qa 

265 PRINT ENTRAR Las DATOS DES 
SDE PULSAR NEPLINE” 

260 PAUSE 5u0 

270 FOR I=1 TON: 


271 

299 PRINT "NUM. "¿I 

290 INPUT 

225 CL5 

300 LET Si=514+X 

310 LET 52=32+X2X 

320 LET_ X1(1I)=X 

3309 NEXT I 

340 LET M(G)=S517 

e ad LET VU1G6)=1((52-5252/N)/1N-2 
J 

350 LET 5163 =>390R 3 

360 LET E(6)=5(G6) /SGOR 

300 PRINT "DESEA LA PRESENTACIÓ 
N_ DE","LOS DATOS? «N" 

390 INPUT 0S$ 

395 CLS5S 

400 IF ="N" THEN GO TO 5509 
a dd "DISTRIBUCION DE FREG 
410 LET 0=09+21 

415 LET R= 

417 LET K= 

420 FOR I=1 TO N 

425 PRINT_AT_OR,K;I; "0" ¡X(01) 

pu NN I/-20=INT 11/20) THEN LEY 

=AK + 


4321 IF K>21 AND Us="P" THEN COP 


432 IF K>21 THEN GO _ SUB 3500909 
435 1F K>22 THEN LET_K=K-3D 
460 1F 1/20=1INT (1,20) THEN LET 


20 
65 LET_R=R+1 


30 NEXT 
498 IF Us="P” THEN COPY 


PAD 


K 


500 GO SUB 3009 

550 1F_ G<M 5 da _T70 200 

740 FOR I=1 

759 PRINT DISTRIBUCION DE FREC 


755 PRINT “NUMERO DE DATOS =":;MN 


760 PRINT "MEDIA = ";M(1) 
762 PRINT 
Er PRINT "DESUIACION TIPO = "; 


6 
770 PRINT "ERROR PROBABLE = “¡E 


NT 
7273 PRINT "URARIANZA = "¡¿E(I) 
770 IF WUsb="P" THEN COPY 
777 GO SUE 300900 
EXT_ 1 


N 
790 PRINT 
00 PRINT "DESEAR LA PRUEBA T? 
510 INPUT 0s$ 
S CLS 
5286 IF Gá4="N" THEN _GO TO _ 1200 


850 PRINT "PRUEBA_T_LENTRE DOS 
DISTRIBUCIONES" 


835 PRINT 

540 PRINT "NUM. ENTRADA DE LA F 
RIMERA DISTRIBUCION" 

845 INPUT 52 

847 PRINT "NUM. "52 

54939 PRINT 

5850 PRINT Eo ENTRADA DE. LA $ 
EGUNDA STRIBUCIÓN" 

852 INPUT se” 

2] PRINT "NUM. ";52 

B LET A=N (S1) +N (52) 

200 Ea A 

910 L =A- 

920 LET T=ABS 1M152) -1M 15233 -50R 
(CIN ISI) -1) 5 151) +2+ (N (52) -13 5 
(52)12) Py 1BxD) ) 

2306 GO SUB 20009 

935 CLS 

940 _PRINT_ "PRUEBA T PARA LAS DI 
STRIBUCIONES" 

294i PRINT "NUM. "352" Y NUM. ” 
945 PRINT 

958 PRINT "T=";T 

255 PRINT 


236% PRINT "DF=";D 
976 PRINT "P=";P 
INT 
3300 1F P>0,291 THEN 50 TO 399 
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29582 PRINT "P<0.0B1 FEF" 
9284 GO TO 
990 IF P>Q0.01 THEN ee A 1000 
992 PRINT "P<9.01 
1206 SE E nde o 1019 
> 
1002 PRINT 1958 > 
> 


1910 pd 18 “Pp> 


1060 PRINT "DESEA _PROBAR_MAS" 
65 ts 2 1 E 


70 
53 SE "N" THEN GO TO 2 
= 
98 GO SE e 
vo PRI "DESEA_ANAL IZAR MAS”, 
SISTRIBUCIONES DE FRECUENCIAS? 5/N" 
1210 add Os 


cL 
1220 IF _ 05="S" THEN GO TO 110 
31240 PRINT “xrserzx FIN REX" 


O cja] ES 999299 

2009 RE LCULA UALOR T, UALOR 
P (PROBABILIDAD) Y UALOR DF (GRA 
DOS DE _ LIBERTAD) 

2020 LET 


20235 LET_M=1 
2030 IF T=0 THEN GO TO 2210 


L U=TE 
2050 IF U«A THEN GO TO 2100 
ET I=M 


2080 L y 

98 GO_TO 21309 
2100 LET I= 
2110 LET 3J= 
2120 LET T1A=2U 
2130 LET A1=291 
2140 LET B1=2/94) 
2150 LET_ Z=ABS_ ((1-B1) +11? 12:33 - 
1452) /SOR (B1*T 17 (2/3) +1) 
21609 IF _J>3 _ THEN GO TO 2180 
2270 L Z=Z*11+.D00%£Z214/073) 
2150 P=.571(14+Z% 


LET t 
115194+2Z+(.000344+Zr+.019527) ) 
21909 IF U>li THEN 60 TO 2210 
508 BErUbN 
3009 PRINT AT 21,0; "PARA CONT INU 


AR_PULSA 
Emb os INKEYS$<>"0" THEN GO TO 3904 


3810 RETURN 
2999 STOP 


La evolución de dos especies 


El programa final de esta sección utiliza el ordenador para simular 
ciclos vitales de dos especies, una de las cuales es depredadora de la 
otra, y representa gráficamente sus poblaciones relativas. La relación 
entre las dos especies está determinada por una ecuación diferencial. 
Se introducen como datos las poblaciones de partida por números 
comprendidos del uno al cinco. Las fracciones son aceptables y es 
fascinante entrar en una población muy baja para una de las especies 
y muy alta para la otra, observando su evolución. Cuando el pro- 
grama haya analizado un determinado número de generaciones, se 
entrarán otras poblaciones de partida para las dos especies. El de- 
sarrollo de esta relación se representa gráficamente encima del trazado 
ya existente, por lo que puede obtenerse un número de gráficos mos- 
trando los efectos de las poblaciones de entrada para el depredador 
y su presa. 


BORDER 2: PAPER 6: CLS 
12 REM ESPECIES 
20 PRINT_ "CUANTOS DE LA ESPECI 
E UNA?" -"" (DE 1 Ss)" 
30 e Y X: IF X<1 OR X>5 THEN 


c0 ro 
40 PRINT *'"Y DE LA ESPECIE DO 
57**" (DE 1 A 8)" 
50 _ INPUT Y: 1F Y<2 OR Y>5 THEN 


su 
55 LET X=X+RND: CLS 
60 FOR Z=1 TO 29 


? STEP 
30 PRINT AT ¿A "ESPEÉTE al 


; FLASH 2; BRISAT 2; O 
10000) ;" ” 

90 PRINT AT 2,21; INK 1; "ESPECI 
E DOS: “j FLASH 1; BRIGHT 2; INK 
2" "¡INT (Y:*10D00) . 

180 LEFT tE) AD, 1 
110 LET Y=Y+(X*Y-23+Y) 18.01 

128 EEbr” 304 3A*Y 

130 NEXT 

135 BEEP .05,Z+T 


180 GO Y 
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Funciones 


El dialecto del BASIC de este ordenador, en común con otras va- 
riantes, contiene un número de funciones preprogramadas que pue- 
den utilizarse en un programa o de forma directa. Seguidamente se 


trata de un programa que utiliza funcior.es definidas para hacer el 
dibujo de un murciélago. 


Funciones generales: 


ABS Esta función, el valor absoluto de una magnitud, proporciona 
el de X ignorando el signo; de forma que si X era — 10,ABS(X) 
sería 10. Si X era 10,ABS(X) sigue siendo 10. 


INT La función INT da el número entero, o la parte entera de una 


cantidad; su parte mayor no es superior a X. Si es 2.42,INT(X) 
sería 2. 


La función INT redondea las cantidades al número entero más 
próximo por debajo; ej. INT 2.2 es 2; INT 2.9 es 2; INT 2 es 2, etc. Un 
requisito frecuente es el redondeo al valor entero más próximo, de 
forma que 2.6 se haga 3, etc. (algunas instrucciones lo hacen auto- 
máticamente; por ejemplo: PRINT AT, POKE). Esto es bastante fácil 
de hacer. Supongamos que el número que se va a redondear sea A. 
Si le añadimos primeramente 0.5 y aplicamos la función INT, la res- 
puesta será el número entero más próximo. Si como ejemplo, 
A fuera 2.6 y deseamos su redondeo a la cantidad entera más próxima: 
PRINT INT (2.6 + 0.5) nos daría 3, mientras que PRINT INT (2.3 + 0.5) 
sería 2.PRINT INT (2.5 + 0.5) se hace 3. 


Con frecuencia en los cálculos con monedas se necesitan respues- 
tas con dos lugares decimales. Sigue una rutina que hace esto. Tam- 
bién incluye un cero delante del punto decimal si el resultado es menor 
de un dólar ($1.00). Entrese la cantidad como A en la línea 10, en 


dólares pero sin su signo $, que será añadido por la rutina en la 
línea 50. 
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RND 


SGN 


TAB 


10 INPUT A 

20 LET AGS=STRS (INT (A21006+9.5 
3]/100) 

a IF A$t1)="." THEN LET Af="0 
+ 
238 LET B=LEN AS-LEN STR INT Y 


40 LET o ii (*".00” AND B=28)+(f 
20" AND 

Se PR IN e ns 

58 GD TO 10 


11.245 11.24 
3 33.00 
33.1 33.10 
333.588 333.89 
Da 399 1.00 
22.009 $22.01 


Función que genera números aleatorios comprendidos en- 
tre0y 1. 


Esta función proporciona el signo de la variable encerrada 
entre paréntesis, el signo del argumento, que es como se 
conoce a estas variables. Si X es igual a 20, es decir, X es un 
número positivo, SGN(X) = 1; SGN(—20) = —1; SGN(0) = 


Como se dijo anteriormente en este libro, se trata de una fun- 
ción de tabulación que mueve la posición de la presentación 
a lo largo de la línea el número de espacios indicados en su 
argumento. Así, PRINT TAB(6);$"””, presentará el signo $ en 
la séptima posición desde el margen izquierdo: PRINT 
TAB(13);"5” llevará el signo al décimocuarto lugar. El sentido 
descendente de la pantalla también puede especificarse aña- 
diendo un segundo argumento detrás de una coma y ambos 
encerrados entre paréntesis. Así PRINT TAB(4,9);$ hará la 
presentación de un signo del dólar cinco espacios abajo y diez 
en sentido transversal. TAB reduce en 32 un módulo numérico, 
significando que el argumento del número que sigue a TAB 
puede ser mayor que 31; y en este caso lo reducirá hasta de- 
jarlo comprendido entre O y 31, moviéndose el lugar de la pre- 
sentación en la misma línea a menos que ello implique retro- 
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EXP 


LN 
SOR 


ceso, en cuyo caso se mueve a la línea siguiente. Esta cuestión 
del módulo significa que el argumento de TAB se divide por 32 
(el número de columnas por líneas de la pantalla) y se toma 
el resto. Puede aprovecharse esta circunstancia cuando el es- 
pacio PRINT sea determinado por un cálculo ya que no es 
preciso asegurar que la cantidad determinada quede en el 
margen entre 0 y 31. 

Esta función proporciona el valor de e elevado a la potencia 
del argumento; así si se escribe: PRINT EXP 5 nos dará 
148.41316. 

LN X nos da el logaritmo neperiano de X; PRINT LN 5 = 
= 1.6094379. 

Es la raíz cuadrada de un número. SiX = 5; PRINT SOR X = 
= 2.236068. 


Funciones trigonométricas 


SIN 
COS 


TAN 


Es el SENO de un ángulo en radianes. SIN 5 = 0,95892428. 
Proporciona el COSENO de un ángulo en radianes. PRINT 
COS X, si X = 5; nos dará 0.28366219. 

Produce la tangente del ángulo X en radianes. 


(El ordenador mide los ángulos en radianes. Pl radianes equivalen 
a 180 grados.) 


La función RANDOMIZE actúa como sigue: 


El número que se coloca detrás de la palabra RANDOMIZE se con- 
serva en las variables del sistema después de haber sido redondeado 
al entero más próximo. Si solamente se aplica la función sin argumento 
o con argumento 0 proporciona el valor del contador de cuadros para 
la formación de imagen en pantalla. Este valor no es afectado por 
los enunciados CLEAR o RUN pero se hace 0 con el NEW. Cambia 
cada vez que se utiliza RND. 
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Conversión de otros dialectos 
del BASIC 


Existen en muchos libros y revistas especializadas una gran ri- 
queza de programas redactados en BASIC pero, dado que todas las 
versiones de este lenguaje difieren en algo, no es probable que un 
programa escrito para otro ordenador pueda ejecutarse en el propio 
sin algunos cambios. La extensión y naturaleza de estos cambios 
dependen en gran manera de la estructura del programa en particular 
y de cómo maneja los datos pero es posible dar algunas normas ge- 
nerales sobre qué aspectos hay que considerar cuando uno se en- 
frente con la tarea de convertir un programa “ajeno” en otro asimi- 
lable por nuestro ordenador. 


La aritmética de números 
enteros 


Añádase siempre, en general, la función INT delante de una divi- 
sión en los programas diseñados para ordenadores con aritmética 
de números enteros. Puede ser preciso el uso de paréntesis en la 
división para que la citada función INT sólo trabaje sobre su resultado. 


La sentencia DIM 


Algunos dialectos del BASIC permiten escribir varias senten- 
cias DIM en una misma línea, como en DIM A$(9), B$(8), C$(7). Habrá 
que substituir esto por sentencias DIM individualizadas en líneas 
separadas del programa. Si éste trabaja con conjuntos cuyos nombres 
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tienen más de una letra, tienen que ser sustituidos por otros que ten- 
gan solamente una, como AS$ o B. Si no se dispone de letras suficien- 
tes habrá que declarar dimensiones adicionales a las existentes para 
un cierto conjunto y utilizar la dimensión incorporada para substituir 
uno de tales conjuntos. Téngase cuidado con los subíndices 0. 


Funciones GET Y GETS 


Leen caracteres o valores de las teclas pulsadas en el teclado. To- 
man varias formas en diversos ordenadores pero, en general, espe- 
ran hasta que se pulsa la tecla antes de actuar, asignando el carácter 
correspondiente a la pulsación o el código de dicho carácter a una va- 
riable. Por ejemplo, GET A$ o LET A$ = GETS. Puede hacer lo si- 
guiente en su ordenador: 

00 LET AS=zINKEYS 
206 1F Agf="" THEN GO TO 21000 


108 

210 

Esto regresaría el carácter correspondiente a la tecla pulsada. Si 

la función fuese recoger el código (CODE) (probablemente escrito 
como ASC) del carácter, utilicese entonces esta rutina: 


1000 LET AS=INKEYS 

1010 1F PA5="" THEN GO TO 10090 
21020 LET A=CODE AS 

10830 PRINT A 


Ligeramente diferente es la versión que recoge un valor numérico 
en lugar del código del carácter. Es necesario asegurarse que el ca- 
rácter leído del teclado se encuentra en la escala comprendida entre 
el “0” y el “9”, de forma que pueda aplicarse la función VAL para 
convertir el carácter en un número. He aquí una forma de hacerlo: 


10900 LET AS=INKEYS 

1026 1F As$<"” OR Ajs>"2Q" THEN GQ 
TO 10089 

1920 LET AS=UAL R5% 

1030 PRINT A 


180 


Es posible encontrar también una versión de la función INKEY$ 
que permite un límite de tiempo a especificar para las respuestas 
del usuario; ej.: 


100 LET A$ = INKEYS(X) 


donde X especifica el límite de tiempo. Esto puede convertirse de 
dos formas. Una: 


109 LET a 
100 PAUSE 
110 LET Aso INKEY $ 


o como sigue, demostrado con un simple juego: 


REM PONGA_PRIMERO LA FIJA 
cION DE _ MAYUSCULAS 
al 34 B$=CHRS (INT (RND*26) +C 
OD .” .. 
o AT 10,0;"RAPIDO, PULS 


$ 
19006 FOR A=0_TO 2100 
110 LET_AS=INKEYS 
120 IF A$<>"" THEN GO TO 249 
NEXT_A 
130 PRINT "TIEMPO CONSUMIDO": 53 
148 _ IF AS=B$ THEN PRINT "HAS A 


O STOP 
PRINT "TE HAS ESUTIUDCADO” 


La función VAL 


Si el argumento de VAL no forma uno numérico válido se produce 
un mensaje de error. En otros dialectos del BASIC retorna a 0. 


Las funciones SET,RESET 


Se utilizan para producir un punto blanco o negro en la pantalla. 
Sustitúyanse por PLOT/OVER/PRINT AT. 
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La función ELSE 


Es una extensión de la función IF... THEN, sentencia condicional, y 
permite más de una alternativa, dependiendo de que la instrucción 
condicional sea verdadera o falsa. Puede ser sustituida por dos expre- 
siones condicionales en su ordenador. Por ejemplo: 


20_IF X=1 THEN LET Y=" ELSE 00 
TO 30 


puede ser substituida por: 


29 1F X= THEN LET Yz= 
21 1F Xc«>2 THEN 90 Fo” 59 


Si la acción de ELSE es asignar uno de los varios valores alterna- 
tivos a una variable, puede sustituirse con una línea. Ej.: 


e X=1 THEN LET Y=7? ELSE LET 
= 


se sustituye por: 


a LET Y=(7? AND X=11+(8S AND X< 


Ciertas expresiones como las tratadas anteriormente pueden ser 
sustituidas por formas más cortas tales como: 


SO LET Y=7+12 AND Xx<>2) 


No puede darse ninguna norma general ya que el método utilizado 
varía según el caso de que se trate; los ejemplos anteriores dan una 
idea de cómo proceder. 


Podemos encontrarnos con una instrucción en la que la acción 
realizada por la función ELSE sea condicional en sí misma: 
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19 IF X=1 THEN LET Y=1 ELSE IF Xx 
=S THEN GO TQ 108 


Esto puede resolverse así: 


10 IF X=1 THEN LET Yui 
5 200 X<>1 THEN IF X=S THEN GO 


TO 
O bien: 
108 IF X=1 THEN LET Y=1 
> IF X<>1 AND X=5 THEN GO TO 


Es posible encontrar toda clase de instrucciones condicionales 
ELSE y las versiones del Spectrum dependerán de las variaciones 


encontradas. 


REPEAT... UNTIL 


Este es un bucle que realiza una operación continuamente, ter- 
minando sólo cuando se cumple una determinada condición. Su utili- 
zación es tan extendida que es difícil especificar un método universal 
de conversión al BASIC del Spectrum; siendo el mejor probable- 
mente la instrucción condicional |F...THEN GO TO. He aquí un 


ejemplo: 
10 ei LON “PONER SI O NO” 


$ 
409 UNTIL Af="3SI7 OR Ag=" NO” 


puede sustituirse por: 


10 INPUT "DE 
20 1F PS>"S 
EN GO TO 10 
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Las estructuras de REPEAT... UNTIL son generalmente mucho más 
complejas que en este ejemplo y puede ser preciso encontrar medios 
de conversión distintos al |F...THEN GO TO. Por ejemplo, cuando 
el valor de una variable es el factor determinante, puede utilizarse 
a veces un bucle FOR/NEXT. Sin embargo, la posibilidad de utilizar 
una proposición condicional IF... THEN GO TO debe considerarse 
siempre y es, en ocasiones, el único método aceptable de conversión. 


Variables no definidas 


Si se intenta utilizar una variable antes de haber sido definida o 
asignada en un programa, algunos ordenadores pondrán su valor en 0. 
En el Spectrum se produce un mensaje de error en este caso. En con- 
secuencia, todas las variables utilizadas en su ordenador han de estar 
asignadas. 


Matrices 


Algunos dialectos del BASIC tienen funciones matriciales que reali- 
zan operaciones sobre conjuntos. Su ordenador no tiene estas fun- 
ciones por lo que habrá que realizar individualmente las operaciones 
con los elementos del conjunto, posiblemente por medio de un bucle. 


LET N=N+1 
1F N<Y THEN GO TO 40 


A20NE 
9900 
E) 

H 
7 
U 
5 
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PROC, ENDPROC 


Este es un método de utilizar las subrutinas para emplear ciertos 
procedimientos de tal forma que, entre otras cosas, hace los programas 
y los listados más fáciles de comprender y de leer (algunos llaman a 
estas técnicas programación estructurada). Permiten que las subru- 
tinas se utilicen especificamente para hacer ciertas cosas aunque con 
la importante excepción de que son requeridas por su nombre en lugar 
de por los números de línea. Tómese este ejemplo que presenta una 
puntuación en la pantalla: 


2100 FPFROCPUNTOS 


1000 DEF PROCPuntos 
1010 PRINT “PUNTOS= 
1020 ENDPROC 


La función ENDPROC es, de alguna manera, similar a RETURN 
en que una vez el procedimiento se ha completado, el programa 
continúa desde la línea inmediata a la que la ha requerido, en este 
caso la de después de la 100. El nombre de referencia que incorpora 
PROC no existe en la versión análoga que lo sustituye en el Spectrum 
pero puede adoptarse una solución como se ve en el segundo ejem- 
plo. El método más sencillo de conversión al BASIC del ZX es por la 
línea 100 GOSUB 1000, con una instrucción REM en cualquier parte 
para identificar la subrutina y el final con la instrucción RETURN. 


190 GO SUB 109009 


1960 "REM SUBRUTINA PUNTUACION 
1919 PRINT, “PUNTUACION=";S 


Si se desea retener la denominación del procedimiento o subru- 
tina puede utilizarse una variable con el mismo nombre que el asignado 
al enunciado PROC durante el curso del programa antes de requerirse 
la subrutina y utilizar esta variable como destino de la instrucción 
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GOSUB (ir a subrutina). Puede incluirse una REM para identificar la 
subrutina y relacionarla con el nombre de la variable utilizada. Es 
útil usar caracteres inversos en estas REM para que puedan destacar 
del resto del texto listado. Así se puede hacer que los programas 
parezcan bastante estructurados. 


SO LET PUNTUACION =1000 


100 'GÓ SUB PUNTUACION 


10600 REM SUBRUTINA PUNTUACION 
1019 PRINT “PUNTUACION=";,S 
1020 RETURN 


Aunque el enunciado PROC puede ser complejo, una subrutina 
es el mejor sistema para la conversión al BASIC del Spectrum (las 
instrucciones GOSUB/RETURN). 


La función INSTR(AS, B$) 


Esta es una función que investiga si hay una copia de B$ en A$ y, 
si es así, dice dónde empieza dicha copia. Por ejemplo, si B$ fuera 
“PUT” y A$ “COMPUTER”, el valor de INSTR(A$,B$) sería 4, debido 
a que la parte de A$ que contiene las letras '*PUT'"" empieza en el cuarto 
elemento de A$. Si la función no encuentra la copia buscada, 
INSTRS(A$,B$) daría O. Hay que preparar una rutina especial para 
conseguir esta función en el ZX Spectrum. 

He aquí un método de conversión adecuado: 


HAPPY 

INSTA (B8, B$)=3 
PPY 

INSTER (88 B$) =1 

HAP ó 


INSTR (AF,B%H) =9 
SINCLAIR BASIC 


TNSTR (AS,.,5$) =0) 
SINCLAIR SIN 
INSTRIiAS,B5%) =1 
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10 REM -- LET Y=INSTRIAS,B3) —-— 
20 INPUT AS 

30 INPUT B35 

¿409 O al PS: "BS 


sub 10 
60 PRINT “INSTRIAS,B5$)=";Y 
9 60 To 20 
1000 REM SUBRUTINA PARA “INSTA” 


1555 4% Y=0 
LEN AS=0 OR LEN date OR 

CEN O SSLEN AR THEN RETUR 

1030 FOR Y=1 TO LEN AS-LEN By$+i 

1040 _ IF ASUY TO Y+LEN B5-1)=85 YT 

HEN RETURN 


1070 RETURN 


Obsérvese que si se desea detectar palabras enteras en lugar de 
sólo cadenas alfanuméricas, habrá que examinar A$ en busca de 
espacios o signos de puntuación que indiquen el principio o final de 
las palabras. La rutina anterior solamente busca cadenas adaptadas, 
de forma que si se desea encontrar la palabra PAN en una frase que 
contiene una tal como EXPANSION, se detectarían las letras de aqué- 
lla incluidas en ésta. Sin embargo, también los usuarios de la varia- 
ción INSTR tienen este problema, por lo que de cualquier manera 
el programa tendrá que ofrecer la solución. 


DIV 


DIV da la parte entera del resultado de una división; por ejemplo, 
17 DIV 5 da 3. Como adaptación podemos utilizar la instrucción INT 
al resultado de la división en el Spectrum. Así A DIV B sería INT (A/B). 


MOD 


MOD nos da el resto de una división. Por ejemplo: 17 MOD 5 es 2. 

La adaptación al Spectrum de A MOD B sería A — (INT[A/B*BJ]). 

Obsérvese que la función TAB lleva su propia acción MOD (módulo 32) 
en nuestro ordenador. 
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La función TAB 


Algunos ordenadores pueden tener dos argumentos para la función 
TAB que sirven para el espaciado en la pantalla. Esta utilización 
del TAB es equivalente al AT del Spectrum. Por ejemplo, TAB (X,Y) 
en algunos ordenadores se corresponde con el AT Y X;del Spectrum. 
Las coordenadas X e Y pueden tener el orden invertido en algunos 
ordenadores. 


Grados y radianes 


Su Spectrum efectúa las funciones trigonométricas en radianes 
a los que se pasa a partir de los grados sexagesimales por medio de 
la siguiente expresión: 
LET RADIANES = (PIXGRADOS)/180 


y los radianes se conviertan en grados por: 


LET GRADOS = (180*RADIANES)/PI 


Logaritmos de base 10 


Su ordenador trabaja con logaritmos naturales, de base e, y si 
se precisan por cualquier razón los de base 10 han de calcularse 
mediante la expresión: 


LET LOGBASE10 (X) = (LNIX!)/(LNI101) 


Puede utilizarse igualmente para logaritmos de cualquier base. 
Supongamos que se necesita el log gX: 


LET LOGBASEB (X) = (LNI[XI)/(LNI[B]) 
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El signo de porcentaje (%) 


Se utiliza este símbolo para expresar una variable entera. Por 
ejemplo: A%. Se utilizan principalmente para ahorrar memoria o de- 
bido a que pueden ser procesadas más de prisa que las variables 
convencionales. En general, no hay ningún inconveniente en utilizar 
una variable ordinaria aunque se debe ser cauto con estas variables 
enteras al ser asignadas si proceden del resultado de una división 
ya que automáticamente redondean el cociente a su valor entero. En 
este caso debe utilizarse LET A = INT (A/2), por ejemplo, para hacer 
entero el resultado de la división. 


Signo de interrogación (?) 


En la mayoría de los ordenadores el símbolo ? se utiliza como abre- 
viatura del enunciado PRINT. 


PEEK y POKE 


Estas son dos instrucciones muy poderosas que permiten hacer 
cosas con el ordenador que no serían posibles de otra manera. Empe- 
cemos por definir los dos términos PEEK y POKE. 


(1) PEEK m nos da el número recogido en la dirección m de la 
memoria. 

(2) POKE m,n pone el número n en la dirección m de la memoria. 
Cuando es aceptado se borra el que allí había. 


El término dirección ('“address”') necesita explicación. Un ordena- 
dor como el Spectrum piensa y recuerda por medio de números, no 
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con palabras como hace la gente. Ciertos conjuntos de números ha- 
cen que alguna parte del ordenador realice cosas específicas. Esto 
se denomina programa. Ahora bien, se necesita un procedimiento 
para conservar todos estos números hasta que se les necesite y una 
vez se conocen sus valores y su distribución pueda el ordenador de- 
cidir lo que va a hacer. 

Cierta disposición de los números puede hacer que el ordenador 
presente algo en la pantalla, sume dos cantidades o quizá que in- 
terrumpa el programa si aquella disposición de los números pre- 
tende hacer algo que no se puede o no se debe. 

El ordenador no puede poner simplemente los números en cual- 
quier parte. Sería un caos si no supiera dónde ha de mirar después 
de cada paso. En consecuencia, existe un método por el que todo 
queda perfectamente organizado. 

Imagínese que se desea presentar un mensaje al público y se dis- 
pone de las palabras escritas en pequeños carteles con ganchos 
preparados para cualquier caso, de forma que es posible poner de 
manifiesto el mensaje colgando el adecuado juego de los mismos. 
Por ejemplo, si deseamos presentar el siguiente mensaje: 


“PRECAUCION CARRETERA OBRAS”, 


necesitamos los carteles que siguen: 


PRECAUCION , CARRETERA Y 


Se precisará igualmente un tablero donde colgar los carteles con 
estas palabras. Si empezamos con el primer clavo colgando en él la 
primera palabra y seguimos por orden acabaremos con un mensaje 
claro: 


1 E 3 dl 
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Los clavos del tablero nos dicen dónde se cuelga cada palabra. Esto 
es una buena comparación con la memoria de su ordenador. Existen 
65536 lugares donde se pueden colgar los números del Spectrum; 
tales lugares están divididos para varios usos y tanto usted como el 
ordenador pueden hacer varias cosas con ellos. Estos “clavos” o locali- 
zaciones, o como los quiera llamar, se denominan realmente direccio- 
nes (''addresses”') (el hogar de cada número, si se desea). Sin em- 
bargo, si el Spectrum tiene un número que desea guardar, no puede 
simplemente meterlo en cualquier parte porque podría trastornar lo 
que hay allí. 


Una de las formas en las que ya usted ha utilizado el POKE es para 
crear gráficos definidos por el usuario. Ellos han sido introducidos 
(POKEd) en las direcciones que empezaban en la 32600 en un Spec- 
trum de 16K. 


Si miramos en el primer “clavo” (PEEK 1) encontramos la pala- 
bra PRECAUCION allí. Si lo hacemos en el segundo (PEEK 2) encon- 
traremos la palabra CARRETERA, y así sucesivamente. ¿Puede verse 
la analogía? Recuérdese que el ordenador utiliza números en lugar de 
palabras pero la idea sigue siendo la misma. De forma similar pode- 
mos cambiar las palabras de los “clavos'” muy fácilmente utilizando 
el enunciado POKE para poner un nuevo número donde solía estar 
otro. Podríamos hacer algo así como introducir (POKE) en el “clavo” 2 
la palabra EDIFICIO que pondría este vocablo en el segundo lugar del 
letrero, cambiando enteramente su significado. El gran secreto sobre 
PEEK y POKE no está en lo que hacen sino en cómo utilizarlos. Está 
muy bien encontrar qué número se encuentra en una determinada 
dirección pero ¿cómo puede hacerse uso de esto en un programa y 
cómo saber dónde mirar (PEEK) y meter (POKE)? La respuesta es: 
esencialmente con la experiencia y leyendo los programas de otros, 
aunque se encontrará que, a medida que crece el conocimiento sobre 
los ordenadores, se apreciará cómo se descubren nuevas formas de 
utilizar PEEK y POKE. Antes de pasar a los ejemplos haremos un 
breve recordatorio de cómo escribir las instrucciones PEEK y POKE. 


PEEK m. La dirección en la que estamos mirando es m, y ade- 
más es un número comprendido entre O y 65560; m también puede 
ser el resultado de un determinado cálculo. POKE m,n. Aquí m es una 
dirección donde se va a poner el nuevo número, como en PEEK. Se 
escribe entre la palabra POKE y la coma. El número tras la coma, n, 
es el que se va a colocar en la dirección m y puede ser cualquiera com- 
prendido entre O y 255, o el resultado de un cálculo, siempre que esté 
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comprendido en el citado intervalo. Se puede hacer que n sea nega- 
tivo, igualmente entre O y —255, aunque esto se hace raramente 
y no es muy útil. 

Veamos ahora algunos ejemplos de la utilización de PEEK y POKE. 


(1) Instrucciones REM 


Muchos programas se apoyan en la información incluida en las 
instrucciones REM en la primera línea de un programa en BASIC. Esto 
es así porque es fácil de introducirse y muy económico de memoria. 
El punto importante es que la dirección del primer carácter después 
de la palabra REM en la primera línea de un programa es 23760. En 
consecuencia, si se tiene el programa: 


1 REM ABCDEF 
2 PRINT PEEK 23760 


se presentaría el número 65 en la pantalla. Este es el código (CODE) 
del carácter A, así que la dirección 23760 tiene el valor de 65. 

Puede fácilmente cambiarse este valor situando otro nuevo en 
23760. Por ejemplo, para cambiar A por Z, búsquese el código de Z, 
que es 90, y colóquese en la dirección 23760: 


POKE 23760,90 


O podría haberse escrito POKE 23760,CODE *'Z” que hace exacta- 
mente lo mismo. La siguiente dirección, 23761 acoge la B;23762, la C, 
y así sucesivamente. 

La técnica de “'mirar'” y “meter”” (PEEKING/POKING) en las ins- 
trucciones REM fue de gran importancia para el almacenaje de los 
programas en código máquina del ordenador ZX81. 

Aunque todavía puede utilizarse. el manual (en la sección denomi- 
nada “Usando el Código Máquina” explica una forma de reservar 
memoria e introducir (POKE) el código máquina en el área reservada. 


(2) La utilización del reloj 


El reloj está contenido en las direcciones 23672, 23673 y 23674. 
Simplemente cuenta el número de cuadros enviados al televisor. 
Puede usted “'mirar'” (PEEK) y ““meter”* (POKE) en estas direcciones. 

Sitúese de nuevo el contador a cero con estas instrucciones: 
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POKE 23674,255 
POKE 23673,255 
POKE 23672,255 


Y para leer su valor utilicese esta expresión: 


655356%+ PEEK 23574 + PEEK 23672 + 
256% PEEK 23673 


Esto nos da una respuesta en cuadros y puesto que 50 cuadros se 
envían cada segundo al televisor (60 en Estados Unidos), se precisa 
dividir por 50 (ó 60) para que nos venga en segundos, como lo que 
sigue: 


LET_TIME=(6SSIBAPEERK 23674+PEEK 
23672+2564+PEEK 23673) /SU 


He aquí un programa para proporcionar un cronómetro: 


5 PORKE 23674,255 


29 ps 23672,255 


50 LET TIEMPO= RE yO AS 
4 +PEZK lb add dr 23 

48 PR AT. 12, ES ÍNT TIEMPO» 
10) AS 


54 GO TO 33 


Pp 


La instrucción INT en la linea 40 se añade para impedir la presen- 
tación de fracciones de segundo inferiores a la décima. Este cronóme- 
tro mide el tiempo con bastante precisión ya que el contador de 
cuadro está controlado con equipo especial, de forma que, a menos 
que se fuerce deliberadamente el programa a actuar de otra manera, 
su funcionamiento es independiente de la velocidad de ejecución y 
cuenta el tiempo bastante bien. Las posibilidades del contador de 
cuadro permite la duración del medidor durante casi cuatro días. Si 
se desea la presentación de minutos y segundos utilicese esta rutina: 


5 POKE 23674,255 
1Q POKE 23673,255 
20 POKE_23672,255 
30 LET TIEMPOS (B55395*PEEK 2357 
as 253672+256*PEERKR 23673) /30 


40 PRINT_ AT 11,12; INT (TIEMPO 
505": "5 INT (TIEMPO- INT (TIEMPOs 


sb); 
0. G0' TO 30 
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Aplicaciones 
mercantiles 


Este ordenador puede utilizarse en ciertas aplicaciones para pe- 
queños negocios. Existe una amplia variedad de programas para explo- 
tar su gran potencial. En esta sección analizaremos algunos programas 
de sencilla aplicación práctica del Spectrum de Sinclair. 

El primero es una manipulación de dinero. James Walsh ha escrito 
un programa para el cálculo del interés compuesto. Las notas para el 
usuario son claras y fáciles de seguir. 


ea FA PERS COM OO INTERESE 
100 INPUT "NUMERO DE ANUAL IDADE 


110 PRINT UD RE COMPUESTO" 
120 PRINT ** "SOBRE "Aj" ANUAL 1 


230 INPUT "CANTIDAD? ";C: LET T 
140 PRINT ““"EL CAPITAL ES ";C; 


“TS. " 
0158 ÍNPUT "INTERES POR ANUALIDA 
160 CLS : PRINT AT 1,0; 
TO A 


210 PRINT N;5TAB_ 19;"PTS." 
DS 21; "PTS." INT rs 


XT 
dd “"TOTAL= "¡INT (T7+.5) 


Ss 
290 PRINT “"INTERESES= "¡IN;"x4" 
¿210 LA * "CANTIDAD ORIGINAL = 


320 PRINT AT 09,0;AS% 
39 STOP 

340 LET VU=1+(IN/100) +1 
350 LET -N (IN-/100) *T +1 
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Tratamiento de textos 


Este programa dejará el texto limpio y correcto antes de imprimirlo 
y proporciona la oportunidad de corregir los errores utilizando un 
cursor de movimiento libre. Se escribe el texto hasta 17 líneas como 
una sola cadena, X$. Cuando se tiene el texto introducido, se pulsa 
ENTER y el ordenador dispondrá las palabras para asegurar que nin- 
guna de ellas quede dividida al final de una línea. 

Aparece un repertorio (menú) con tres opciones: 1, corrección del 
texto; 2, impresión (LPRINT); y 3, empezar nuevamente. Si se decide 
corregir el texto, reaparecerá en la pantalla con el mensaje: “PONGA 1 
PARA REGRESAR AL MENU” escrito en la parte superior de dicho 
texto. Se utilizan las teclas 5, 6, 7 y 8 para mover el cursor en la 
dirección indicada por las flechas de esas teclas haciendo que se 
desplace a lo largo de las líneas del texto y poniendo un cuadradito 
negro sobre la letra por la que se está pasando. Una vez que se en- 
cuentra una equivocada se pulsa la **A”' y aparece el mensaje “ponga 
letra” (entre letter) en el fondo de la pantalla. Se pone tal letra y se 
acciona ENTER, con lo que se cambia a la seleccionada. Pulsan- 
do *'1” en cualquier momento se pasa de la fase de corrección al re- 
pertorio (menú) original y de ahí se puede escoger el *'2'” para poner 
el texto en la impresora. 

Después de la impresión se muestra otro repertorio (menú) que 
permite pasar nuevamente todo el programa con el borrador estable- 
cido o terminar su ejecución. 


10 Ee% FRATAMIENTO DE TFENXNTO 
29 SNE E” GA EL TEXTO” 


$ 
32 LET AGABp" 


ELS 
45 65 SUB 1005 

ES Eng 

79D PRINT “”* PONGA 2 aiatas CORRE 
GIR, 2 RA IMPRI 
MIR, 3 PARA EMPEZ 
AR oo o 


vuT 
100 IF G=>5 THEN KUN 
110 IF Q0=2 THEN GO TO 46090 
120 IF Q=1 o GO To 2000 
1309 GO TO 
1000 REM _SE O ETIENE EN PALABRAS 
DIVIDIDAS 
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1010 LET_N=1 
GO_SsUB a 
1050 LET N=N+ 


1040 IF NO=LÉN Se THEN RETURN 
1045 REM UN ESPACIO EN LA LINER 
SIGUIENTE 
e 50 IF X$IN3=" " THEN GO TO 121216 
1065 _ REM _ UN ESPACIO EN LA LINES 
SIGUIENTE 

1070 IF XS$I1N)="” *" THEN GO TO 2103 
109580 LET_3J= 

1090 GO_SUB 1150 

110 J=J+1 

11095 REM _UN ESPACIO EN LA LINER 
SIGUIENT 
o IF XSINI1>" " THEN GO TO 109 
1120 FOR N=N_TO_N+J- 

1125 REM _UN ESPACIO EN LA LINER 
SIGUIENT 

O cial XH=zXx$(1 TO N)+" "+X$1N+ 
1140 NEXT _N 

11509 GO_TO 1030 
o LET XSK=X$1(1 TO N-2) +X%(1N+1 
1170 GO TO 1020 

11590 LET N=N-1 

1190 RETURN 
20004 REM $ CORRECCIONES * 
2005 CLS 
2Q1 5 
SEP MENUS "PONER 1 PARA REGRESA 
2030 LET A=1: LET L=LEN X$% 

asa LET A 
2035 PRINT AT 2,0;X5 
2037 LET_X$1(A) =25 
CEA e a NKEY$="35" AND ACXL THEN 


LET 

3055" 17* INKEYS="6" 
EN LET_A=A+32 
2068 IF INKEYS$="5" 
LET A=zA-1 

IF _ INKEYS="7" 


AND AX<L+52 TH 
AND A>1 THEN 


2055 AND A>32 THEN 
LET A=A-32 
9070 IF INKEYS$="21" THEN GO TO _ 79 
dp 1F INKEYS="A" THEN GO SUB 53 
2099 PRINT AT 21,0;A53" “¡¿XSIA);5" 
2100 LET Zh=XSstA53 
2110 LET_X$(A)="N" 
2120 GO _ TO 2035 
3000 INPUT INK 2; FLASHA 1; BRIGH 
e: PONE RA "¡HS 
3010 LET X$(A) =H$ 


3030 RETURN 


4010 PRINT "PONER 1 PARA NUEVA 1 
+41 PRINT TAB 6;"2 PARA NUEVO P 
4030 PRINT TAB 6;"3 PARA DETENER 
EL PROGRAMA" 

4040 INPUT UY 

4050 IF Usd THEN GO TO 4000 

7 e e THEN RUN 


U=3 THEN STOP 
¿056 ¿0 TO 4040 


El programa final de esta sección tiene por objeto poner entradas 
y referencias de página en orden alfabético y permite la construcción 
de índices de libros y de artículos de revistas, pudiendo adaptarse 
fácilmente para la acomodación de listas o niveles de almacén. 

El programa tiene tres partes. La primera (hasta la línea 100) acepta 
las entradas; la segunda (líneas 200 a la 300) las clasifica, y la tercera 
(de la 310 a la 530) presenta los datos. 

El programa pide que se ponga un título (T$) y su autor (N$) y a 
continuación introduce los temas y las páginas, una por una, ponién- 
dose una “E” para terminar el proceso de entradas. El programa 
aceptará hasta 400 entradas (linea 20) en un Spectrum de 16 K; y 2000 
o más en uno de 48K. Al final, se puede escoger entre la presentación 
en pantalla o en la impresora. 

He aquí un ejemplo: 


JUEGOS DE INTELIGENCIA 
FISHER R B 
o - 124 

NTO - 18 


PERSONALIDAD - 9 


. REM INDICE eS LIBRO 


) 
NP PONER EL TITULO “,T 
INPUT "PONER EL NOMBRE DÉL 


$ 
50 FOR G=1 TO 508 
197 


608 _ INPUT “PONER PALABRA Y_NUME 
ER DE_PAGINA_PONER “E” AL ce bio 


DAS “¡AS 
EG REM_19 ESPACIOS EN DA LINEA 
SIGUIENTE 
50 IF PS1G)="E 
* THEN 60 TO 209 
9 PRINT_A%1G) 
100 NE 
206 CL 
dd "PREPARADO, CLASIFICA 
220 FOR B=1 TO G-1 
230 FOR C=B+1 TO 
a AS IB) <=AS1C) THEN GO TO 
250 LET D$=951B) 
260 LET AS1B)=AS$1C) 
270 LET_ AS (CI=DS 
280 NEXT € 
220 NEXT _B 
3909 PRINT “”*"PREPARADO”" 


310 LISTO" "PONER 2 PARA IMPRIMI 
O OTO 2 PARA PRESEN 
TAC ION CEN” A 
330 1F INKH Ergo” THEN CLS : GO 
O 449 
IF INKEYS$="21" THEN GO TO 36 


354€ GO TO _ 350 
360 LPRINT T5 


40 FOR_A=1 TO G-2 


INT 
5evd FOR A=1 TO G-1 
528 PRINT_AS(A) 
NEXT AB 


Cómo mejorar los programas 


Usted habrá pasado probablemente por varias fases mientras se 
desarrollaba su habilidad para la programación. Al principio, una 
breve lucha con el BASIC y súbitamente descubrió que podía, de 
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alguna manera, escribir programas que funcionaban. Sus listados 
seguramente presentaban un aspecto bastante enrevesado y sus 
amigos probablemente necesitaban que usted les diera una explica- 
ción detallada antes de que supieran cómo ejecutar sus programas, 
aunque al final acababan funcionando. 

Después llegó la fase en la que se tomó la decisión de que era 
posible hacer algo más. Pero si bien pudiera sentirse vagamente in- 
satisfecho con sus programas es probable también que no tuviera 
muy claro cómo mejorar su calidad. He aquí unas cuantas normas 
que pueden ayudarle. 

Primero, eche una ojeada a la impresión de su listado. Los progra- 
mas enlazados con instrucciones REM tienen mejor aspecto y son 
más fáciles de entender cuando se vuelve a ellos después de una 
interrupción. Por supuesto que la escasez de memoria puede impedir 
el lujo de utilizar REMs pero, si dispone de ella, deben incluirse. Un 
REM con sólo una línea de asteriscos es muy útil para separar las 
secciones principales del programa. Examínese críticamente cualquier 
instrucción GO TO. Demasiados GO TOs saltando como ranas entre 
distintas partes del programa muestran falta de pensamiento directo, 
hacen que se ejecuten con más lentitud y son muy difíciles de descifrar. 

Es una buena práctica de programación poner cada una de las 
secciones principales del programa en subrutinas separadas (una para 
asignar las variables al principio, otra que prepara la presentación, la 
que determina quién ha ganado y así sucesivamente). El principio pu- 
diera muy bien ser así: 


10 REM xx NOMBRE DEL PROGRAMA + 

20 REM ASIGMACION DE VARIABLES 

30 60 SUas 3008 

40 REM PREPARACION DE LA PRE 
SOS 

GO SUS 38Yuas 

59 REM A PERSONALES 

70 GO SUB 79A 

5u REM HOVÍMIENTOS DEL ORDENA 


GO SUS 608%80 

100 REM COMPROBAR SI EL JUsSGO 
TERMINPD 

110 Ga a Sn 

120 GO TO 


Como puede verse esto asegura que el programa se mueva real- 
mente en un ciclo continuo una y otra vez hasta que termine con la 
subrutina “COMPROBAR SI EL JUEGO HA TERMINADO”. Es posi- 
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ble escribir una serie de líneas como estas antes de empezar a hacer 
otra cosa, incluso antes de que sepa cómo va a realizar realmente las 
tareas de la subrutina. 

A continuación puede construirse el programa módulo a módulo, 
asegurándose de que cada uno funciona antes de pasar al siguiente. 
Es bastante fácil corregir un programa preparado así y es mucho más 
sencillo conservar una idea de dónde se encuentra cada cosa si se 
sigue esta pauta que si se deja que el programa se vaya haciendo, más 
o menos, a sí mismo. 

El listado ha de ser tan transparente como sea posible, tanto para 
el proceso actual de corrección como para saber en el futuro qué es 
lo que hace cada cosa. La presentación del programa tiene que ser 
también buena. Si no hay problema de memoria, asegúrese de que 
la presentación en pantalla es clara y definida. Usense lineas PRINT 
en blanco para el debido espaciado, juéguese con las reglas de los 
símbolos gráficos para dividir la pantalla en secciones lógicas, etc. 
Una vez que el programa funciona satisfactoriamente, vale la pena 
emplear algún tiempo en la subrutina que controla la presentación. 
Aquí nuevamente se apreciará la ventaja de tener toda ella manejada 
por una subrutina, ya que se sabrá fácilmente dónde acudir para me- 
jorarla. 

Dado que no vivimos en un mundo ideal, es improbable que cada 
enunciado de la presentación pueda estar contenido en una sola sub- 
rutina pero si se hace todo lo posible para conseguirlo será fácil trabajar 
con el programa. 

El enfoque “estructurado” que se ha descrito también ayuda a que 
se comprenda otro objetivo de un buen programa: que haga todo lo 
que se espera de él cada vez que se ejecuta. Un programa ha de escri- 
birse de forma que, aunque usted no se halle presente cuando un 
amigo decida ejecutarlo por primera vez, funcione tal como se espera. 
«Esto significa, por supuesto que no sólo está debidamente corregido 
sino que las instrucciones (que pueden estar contenidas en la subrutina 
de ASIGNACION DE VARIABLES) son claras y completas. 

Las referencias del usuario no han de ofrecer ninguna duda para 
que el operador sepa con certeza si ha de poner un número, una serie 
de números, una palabra, una fecha, una combinación de letras y 
números, etc. El programa debe suponer que el operador es un com- 
pleto idiota y que, por muy claras que sean las instrucciones y las 
referencias al usuario, siempre se intentará hacer las cosas incorrecta- 
mente. Un ejemplo clásico de esto es la entrada de fechas. Deben 
ponerse “trampas cazabobos”” para rechazar una fecha cuando se 
pone de manera que no puede entender el ordenador (como el mes 
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antes que el día) o que sea claramente errónea (como, por ejemplo, 
el 32 de febrero). Hay que asegurar que cualquier cosa que haga el 
operador no interrumpa ni desvíe el programa. Ello puede ocurrir 
cuando se espera un dato numérico y el operador trata de poner una 
letra o una palabra; o pulsa ENTER sin haber aplicado nada previa- 
mente. Esto tiene la solución de permitir siempre una entrada de 
variable alfanumérica o cadena, volviendo a solicitar la entrada si 
se ha puesto una cadena vacía y tomando los enunciados VAL o CODE 
sobre la entrada para pasarla a forma numérica. 

La documentación es una parte de la programación que con fre- 
ciencia se menosprecia. Resulta prácticamente imprescindible para un 
programa que se intenta publicar y muy aconsejable para los largos 
que se hacen para uno mismo. La documentación debe incluir, por 
lo menos, una lista de variables, una explicación de la estructura del 
programa (que será fácil de seguir si se aplica el enfoque modular que 
hemos aconsejado). También hay que incluir unas breves instruccio- 
nes, especialmente si el propio programa no las contiene. Asimismo 
resultan útiles una muestra de su ejecución indicando los datos de 
entrada esenciales, y la naturaleza y ordinograma del programa. 

El programa debe ejecutarse con la máxima rapidez posible. Cada 
vez que aparece una subrutina y una remisión GO TO, el ordenador 
debe buscar, a través de todo el programa, línea por línea, hasta en- 
contrar la que se solicita por lo que si se ponen las subrutinas de 
uso frecuente cerca del principio del programa, se acelerará su ejecu- 
ción. Esta es la razón por la que las instrucciones se sitúan muy 
a. menudo al final. No es conveniente que el ordenador tenga que 
recorrer la inicialización y las líneas con instrucciones cada vez que 
se le indique GO TO o GOSUB, en busca del destino que se le señala. 

Defínanse primero las variables de uso frecuente para que ocupen 
los primeros lugares en el almacenamiento de variables. El ordenador 
busca sólo hasta que encuentra la que precisa por lo que ha de evi- 
tarse que extienda su búsqueda a más entradas que las necesarias. 

Finalmente, llámese a un amigo y juntos siéntense frente al televi- 
sor, dígale solamente que pulse la tecla de ejecución (RUN) y observe. 
Si existe alguna vacilación o el programa no se ejecuta con suavidad, 
le queda trabajo aún por hacer. Esta es la mejor forma de comprobar 
un programa creado por uno mismo. 

En resumen: 


— Utilicense las instrucciones REM. 
— Háganse los listados limpios y lógicos. 
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— Empléense las técnicas de programación estructurada, controlando 
el programa a través del bucle de llamada a las subrutinas. 

— Examínese críticamente los GO TO incondicionales. 

— Procúrese una presentación en pantalla atractiva y clara. 

— Asegúrese que las referencias al usuario sean claras. 

— Incorpórense “trampas cazabobos”' en todas las entradas de datos 
para evitar aplicaciones incorrectas. 

— Documéntense los programas aunque solamente se haga una lista 
de variables. 

— Los programas deben ejecutarse lo más rápidamente posible. 

— Pruébense los programas haciendo que los ejecute alguien que no 
esté familiarizado con ellos. 


Programas, programas, 
programas 


Finalmente presentamos algunos programas con los que se puede 
disfrutar. 


1 REM SALGOS 
2 REM (€ GOURLAY, HARTNELL 2195 


S RANDOMIZE 
7 GO SU5 2 
0 FOR X=1 TO 22 
Aa PRINT INK 4;TAB 50; “a "” 
0 NEXT_X 

S PRINT AT 0,6; "APOSTAR SOBRE 
UN _ NUMERO ”";4 
40 DIM 


INK X/2; 


55 BEEP .01, 
IF AX) 350 A hen GO TO 2115 
NEXT _X 


PRINT AT 19,05 INK RND+75X:; 


o 
a 
y TO 50 
5 FOR G=1 TO 59 STEP 2 
S EL GANADOR! 
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1239 255 2,0 

125_1F W=X THEN_PRINT_AT 208,3; 
INK RND+7;5'"Y USTED TAMBIEN GÁNA + 
150 FLASH RND 

1408 NEXT G 

145 td [0] 


205 PRINT AT 3,2; INK 2; "DIENUE 
NIDO AL_CANOCROMO" 

210 PRINT AT 5,6; INK 4;"HAY Nu 
EVE PERROS." 

220 aio ( INK| dd POR 
UN _GANAD 
ia IF 002 GR w>9' THEN GO TO 22 
“os BORDER E 

240 CLS : RETURN 


10 REM REBOTE DE ESTRELLAS 

186 REM € HARTNELL., 19862 

20 BORDER € 

30 LET A=1: LET B=1: LET C=RND 
+20: LET D=RND*+20 

PR INT, ATC MU GATOC,D; IN 

K RNDE7, 

50 1F cib>a1 or ciBsr1 THEN LE 
T B=-B: BEEP 0.2,-RN +15 

60 IF D+A>31 OR DATO or RND>. 
El THEN LET A=-A: BEEP 0.1,RND=*2 


7Q LET_C=C+D: LET D=D+A 
50 GO TO 40 


Color 


Rete a su Spectrum con el juego que se propone en este programa 
“COLOR” escrito por Graham Charlton que pretende poner de relieve 
las posibilidades de sonido y color de su ordenador. Verá, cuando 
ejecute el programa, lo efectivas que son las características del Spec- 
trum. El movimiento se efectúa entrando un número de la escala la- 
teral seguido por otro del eje horizontal de la parte superior o inferior 
de la pantalla, como uno solo de dos cifras. Por ejemplo, si desea 
colocar una pieza donde se encuentra la “O” de abajo entraría el 64. 

203 
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1 REM ++ %9 COLOR LREXARLAE 
AT INK_ 2;"c"¿ X 


4 us a 


K K 
10 DIM a(10,10): FOR b=1 TO 10 
FOR_c=1 TO 18 
20 BEER :D1,bsc/ 

E Les2 AND c272 AND be>10 
AND” c<>10 THEN LET 2a1b,c)=CODE ” 


50 NEXT Cc: NEXT b: LET p=0: LE 


r= 

70 LET a ón "xXx": LET 2( 
rd E "Xx LET 46, (5) =CODE” ss 
om> 


a D "gt 
NPUT,, ( INK 25 "DESEA JUGAR 
1 : Gb Sub 23000 

127 PRINT_AT 0,12; INK 2"c"; I 
N IN ": CINK 3;"0*; 


PA 
INK 5 .. 1 TS . M9 . 

1430 IF coDÉ G$<>CÓDE “n" AND co 
DE O$<>CODE "n” THEN GO TO 2009 
10060 PRINT INK 2AT 10,16; "NENAS 
1010 LET Ss =CODE "0": LET t=CODE 

LET h= 


194 Ó FOR 3=2 TO 9: FOR b=2 TO 9 
1259 IF afa,b)<>CODE "." THEN GO 


1 
1070 GEA q=0: FOR c=-21_ TO 1: FOR 
eb 1: LET k=0: LET fuma: LE 


1138 15 2(f+C,9+d)<>s THEN GO TO 
31140 LET kuk+21: LET faf+c: LET y 
150: GO TO 1139 

1 + A atf+c,9+d)<>t THEN GO TO 


2 
1196 LET q=q+k 


xT Cc 

1220 IF f=2 OR _f=93 OR 9=2 OR 9=9 

THEN_LET Q9=q%*2 ; 

1230 IF f=3 OR f=8 OR 9=3 OR 9g=89 
THEN_LET q=q/2 

1260 IF _(f=2 OR f=9) AND _(9=3 OR 
9=6) OR (fuS ua si AND 1í9=2 5 

R_9=39) PHÉN LET q=q/2g 

1280 IF_q<th OR sa” ÓR (RND>.3 AN 

D a=h) THEN GO TO 1320 

1299 o LET Mbz=a3: LET n=b 


vaa 

1350 IF h=0 THEN GO _ TO 1370 
136€ GO _SUB rai GO SIJD_ 3000: 
2000 PRINT INK 1AT 10,16;"8 


Q10 Ep ENGUbE "x": LET t=CODE 
»”o'"”: UT 

2040 IF ar THEN GO _ TO 2090 

2050 IF r<11 OR Fr>38S THEN GO TO 


206549 pd a (£5/10)+1: LET nur 
182 INF (r710 +1 
2050 SUB 


2008 
2090 $0 SUB 3000: GO _ TO 1000 
dal PRINT AT 5,0: BEEP .25,RND* 


3010 LET c=0: LET h=0 
3030 PRINFT INK 4)" 
3040 FOR b=2 TO 9: PR NK 4;b 


230609 FOR d=2 
2979, IF 9 1b,9) =c0DE "Xx" THEN PRI 


2; 
3075 iros 50, 4d) =CODE "o" THEN PRI 
3977 IF $ (b,0) =coDE "," THEN PRI 
3089 1F 3(b,4)=CODE "x" THEN LET 
Cc=C>+» 
2998 IF a(b,d)=C0DE "o" THEN LET 
=h + 
3100 NEXT d 
3110 PRINT INK 4;b-1 
EXT_b 


A 
3180 PRINT_7> IN 9;"YO TENGO *"; 
INR 255, INK S¿T USTED TIENE 


L LET 
e a (rie 94d)? THEN GO TO 
Seria LET fufe+c: LET 9=9+d: GO TO 
oa IF a31(ff+C,9+d)<>t THEN GO TO 
4020 LET A IF m=f AND n= 
9 THEN GO TO 140 
4110 LET f=f-C: LET 9=9-d: GO TO 


4090 
4146 NEXT d: NEXT _c: RETURN 
5009. o Eh, Ad PRINT "HE GANAD 


O, 
só10o” Sé hac +Fhen PRINT “USTED HA 
GANADO, 

5630 REM O CHARLTON 1982 
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aaa e 

vsosansan) 
dr. -XDo. nd 
S..»00...59 

....D...0 
A 
Sion. . 


YO TENGO 1 


cotourthelto 


ME. “OLA 


USTED TIENE 4 


Programa “Vida” 


Se presentan dos versiones del juego “Vida” (LIFE) de John 
Conway que simula el nacimiento, crecimiento y muerte de una colo- 
nia de células. Estas se desarrollan de acuerdo con las siguientes 


reglas: 


— Cada célula en el reticulado tiene ocho vecinas. 


— Cada célula, con dos o tres vecinas, sobrevive hasta la siguiente 


generación. 


— Si sólo hay tres células vecinas, nace una nueva. 


— Cualquier célula con cuatro o más vecinas muere por superpo- 


blación. 


P+D y 
SUSANNE 
ul 
|] 
pa] 
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vo”: LET 


- 0 ANNE MARSHALL 
DIM 


DIM (145): 


(T3=Z: NEXT T 
Z=125 


ER €: CLS 


54 LET_ AIB+10xD)=Z 
70 IF RNID>.45 THEN LET AtBD+190% 


50 LET a a do 


NEXT 

100 LET A 

120 FOR U=21 TO 12 

150 FOR E=1 TO 12 

140 LET F=U+10xB5 

150 1F G=1 THEN GO TO 250 

190 L H= 

2086 FGR T=1 TO 8 

rie 1F A(F+E1(1T)3+21)=C THEN LET H 
=H+ 

224 NEXT T 

3 IF A(F)=C€ AND H<>3 AND A—<>2 


230 
THEN_LET L(F)3=Z 
235 IF A(F3=Z AND H=3 THEN LET 


=C 
e NEXT B: DORDER RND*Y: NEXT 


245 BORDER 21 

250 FOR M=211 TO 144: LET A(M3=L 
(M3): BEEP AR MES: NEXT H 

255 PRINT AT 5 

260 FOR U=1 TO 12: PRINT TAB 4; 
276 FOR 6G=1 TO 22: LET F=U+10%5 
2 R INK 5; Pus. aa A 


285 PRINT AT 3,10; PAPER 2; INK 
5; "GENERACION ";G: BEEP .3,59 
298 GO TO 


2 
ici DATA 2d. 19,9, d.,-2.-9, -19D, -3 


10 REM COLONIA DE CONWAY 
15 SO 6) de" NELL, 198582 


SUB 
Ju Per PRINT COLONIA=200 
40 LET GENERACION ACTUALIZADA = 


45 REM A 
50 GO su INT _COLO 
50 GD SUB GENERACION ACTUALIZA 


70 a TO 50 
50 REM EXE XERAL ESE 
390 REN INICIAL IZA 


110 LET CELULAS=9 
120 DIM A(21,12): DIM B(211,21) 
31309 FOR X=2 TO 10: FOR Y=2 “Fo a 


135 BORDER RND*? 

30 IF RND>.35 THEN LET_A(X,Y)= 
LA Beto "oa xev/2: LET CELULAS= 
CÉLUCAS+1 
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150 LET B(X,Y) =A(X,Y) 

168 NEXT_Y: NEXT X 

170 LET ARO=0 

175 BORDER 7: CLS 

150 RETURN 

1960 REM FREE FERERE RE RELE EREEES 
COLONIA 


DF20 
a NT AT 1,0; INK RND*6; “EN 
Ed 


ss. O; 
255 LET CELULAS=D ñ 
260 FOR X=2 TO 18: FOR Y=2 TO 1 


270 LET_ AX, Y) =B1X,Y) 
200 IF A(X,Y)=0 THEN PRINT " -” 


"285_1F AX, dá THEN PRINT INK 
une S5;'M ”; LET CELULASSCELDOLAS 


NES NEXT Y: PRINT : PRINT : PRI 
NT_TAB_ 9; NEXT X 


292 P INT CUELLO; TINK RND+6;"B 
2. - Ei CÉLULAS <6 THEN RUN 
390 REMO Nara riaraa 
Sia FOR Kez 10 10. FOR Y=2 TO 1 
345 BORDER _RND*6 
360 IF A(X-1,Y-1)=1 THEN LET C= 
370 IF A(X-1,Y)=1 THEN LET C=C+ 
380 IF A(X-1,Y+1)=1 THEN LET C= 
390 IF A(X,Y-1)=1 THEN LET C0=C+ 
100 IF AIX,.Y+1)=2 THEN LET C0=0+ 
410 IF A(X+1,Y-1)=1 THEN LET C= 
420 IF A(X+1,Y)=1 THEN LET C0=0+ 
“AGA 1F AX+1,Y+1)=1 THEN LET C= 
440 IF A(X,Y)=1 AND C0<>2 AND C< 
TSO TA Aix yr AND 0=3 THEN LE 
T Bix Y) =1 


NEXT Y: NEXT X 
470 RETURN 


El juego de las cerillas 


Se basa en el juego que apareció en la película **El Ultimo Año 


en Marienbad”. 


Hay un cierto número de cerillas al comienzo del 


juego y entre el jugador y el ordenador, por turno, retiran una o más 
cada vez. El número máximo de las que se pueden tomar aparece en 
la parte superior de la pantalla. Quien retira la última de las cerillas 
pierde. El ordenador no es infalible. 


5 
AT O 
H 


_118 
*asó 
134 
140 
RINT 
No”: 


REM" CERRILLOS + 

REM_TEXTO al de EN AZUL 
PAPER 1: 7: BORDER 1: € 
LET Es0: LET Z=186%+INT" (RND+ 
IF A =Z THEN 38 ZaZzy 1 
LET Hz (RNDF43 + 


PAPER ANDES+S; INK po 


PRINT 
.»6; "EL MAXIMO 


IF E>0 THEN PRINT AT_7,2;"U 
TOMO "¡E¿TAB 20;“YO TOME *; 


FOR K=1 TO _Z: BEEP -Bt.k 
PRINT INK RND+*5+2 SN 
IF RND>.85 THEN Batir: bRI 


NEXT K qe 
LET Kx=7: IF RND>.S THEN ELET 


INPUT INK K;”"CUANTAS TOMARA 
IF E>H OR E<1 THEN GO TO 41 
CLS : LET Zmz-E 

15 220 THEN BORDER RND*7;_ P 
PAPER RND+S; 19,12; -YQ_GA 
BEEP .85, Año 30 3Ó: 126, TO 


O=Z-1-INT tiZ2-1)1(H+13) 


So LET 
+ 1217 TS (RNDF3) —-1 
160 IF Q> 


a To 
1708 
150 

RINT 

OME 


19 


OR Q«1 OR QH THEN 6 


159 

LET Z=Z-Q 

1F_ ZzQ THEN BORDER Ear = 
.¿ O: RND*S5;AT 10,1;"Y0O 


ASI QUE GANA OSFEDr + 
¿1580 


BEEP 2 25, ¿PND+40: G0 TO 


209 


EL MAXIMO A RETIRAR ES 4 


USTED TOMO 21 YO TOHE 3 
18 28 51 41 Si 
ro E 
108 115 
Tragaperras 


El programa siguiente le va a costar 1,50 dólares la tirada. De vez 
en cuando aparecerá la opción de PARO, pudiendo retener las cuatro 
piezas rotatorias si lo desea. En esta situación puede aplicar los nú- 
meros que quiere retener, pulsando ENTER después de cada entrada. 
Cuando ya tenga suficiente o no desee retener ninguno, pulse cinco 
y pulse ENTER, que le lleva otra vez a la siguiente jugada. 


20 POKE 23609,1090 
SuB 9000 
40 POKE 23692,- 
e OR OS SLS: BORDER A: IN 


K 56 

INT_**? PAPER 2;TAB_2;"ES 
ra Es LA JUGADA “; JUGADA TAB Es 
“USTED TIENE $"¿DÍNERO- TAB 2; 
PULSE CUAL LOQUIER TECLA PARA NÍÉ IA 


70 1F INKEYS$:<>"" THEN GO _TO 78 
SO IF INKEYS="" THEN GO TO 808 


99 FOR Gui TO'8B: BORDER _RND=+7 
BEEP .01,50-G: NEXT G: BORDER 


J=i 
110 Te" Mts) SU En GO TO 1S0 
120 LET_A(J)=INT (RND*4) +1 
140 BEEP .1,504J 


NEXT ul 
165 LET JUGADA= JUGADA +41 
210 


160 GO SUB 5000 

165 GO SUB 4000 

179 IF RND>.7 THEN GO SUB 560089 
176 FOR T=1 TO 48: AS AT 1,2 
A RND+7; NAT ¿25 INK 


NEXT T 
177 For Tel TO 25: PRINT : NEXT 


5 
188 IF DINERO>0 THEN GO TO 568 
199 PRINT *““TAB_5S;"SOBREUIVIO 


R +7 
2290 e “PERO AHORA SE HA ARR 


7 
24045 BORDER E 
210 PRINT "Cc SINO ESTA 
CERRAD Me 
215 BORDER RND=7 
220 POKE e dif 


4900 REM xx DINERO x=z+* 

4005 PRINT **”*: PDOKE 23692,-1 
4010 LET DINERO=DINERO-1. 

40209 IF ACi)=A1(2) AND AT2)=A 13) 


£££££ —PREMIO! !!» EFELCECLELE£” : 
BEE ¿10: PRI AP 14 pa 

o LET DINERO=DINERO+18: 
4030 IF Ca tm sn (2) 7 (A(3)=A12 
3) OR A4)=A(2)3) OR (1) =A12) AN 
D A(2)=A(4) OR ABRA) AND_ AI 
)=59A 14) THEN ¿ PAPER 2 


ETT TRES IcUAL Es! LLE 
ñ É 20: PRINT *““GANA S 35 : 
¿ LÉT DINERO=DINERO+S: GO T 


Laso. IF A(33I=A(2) AND A(3) =A1(4) 
THEN PRINT INK ao: BEER 
¿4D: aiÑr **"*GANA 7,S DOLARES 
“: CET DINERO=DINERO+7.S: GO TO 


41900 
4059 IF A y 


HEN PRINT PAPER 2; “2333333; PR 

PER 0;” ENHORABUENA? e: BEEP 2,- 

o er Dn "GANA _7,S DOLARES! Í* 
INERO=DINERO+7 


4198" F0R T=1 TO _ 28D: ÉORDER RNDXx7 


BE 1,T: NEXT T: BORDER Y 
4105 PRINT 
a FOR SE YTO_64: PRINT INK RN 
Batir NEXT T 
¿izó ¿TAB 8, "USTED AHORA 
as NU TDINERD"> 


4150, "OR +=1 To 64: PRINT INK RM 
DF “MU: NEXT T 


21 


212 


PRINT 
4150 POKE 235692,-1: PRINT : PRIN 


+ 
41609 DIM M(4) 

4170 RETURN 

5000 REM zx GIRO xx 

5010 FOR T=1 TO SO: BORDER RNDe7 
E ga .01,50/T/2: NEXT T: BORDE 


5020 PRINT *"* “TAB 4; 

5038 FOR J=1l TO 

5040_1F A(J)l=1 THEN PRINT INK 2; 
E ¡: BEEP 

5959 IF” A) =2 THÉN PRINT INK 7; 

e o Ly 

5668 IF A(J)=3 THÉN PRINT INK 4; 

"Mis l "5: BEEP .1,30 

5070_1F Ay) =4 THÉN PRINT INK S; 

z EE ¿a 


L. 3 el, 
5 PAUSE 70a 
50 EXT 
5108 RETURN 
565000 REM xx ATICO +2 
6018 DIM M(S 


$030 DEEP E, 

5925 POKE 23652, -1 

6839 PRINT ÑK e; “PONGA Los mM 
UMEROS QUE" 

5040 PRINT * INK 6;"DESEE RETENE 
R, ENTRE 


S5ÓSG PRINT * INK 6; "CUANDO HAYA 
TERMINADO” 

60698 INPUT Q 

59709 AN id PRINT INK 2,8 
5098 IF RS THEN GO TO 6869 
3000 REM ** ASIGNACION DE WARIAS 


39010 DIM A(S): DIM_M(S) 
2020 LET DINERO=7.S5S 


3070 BORDER 7: PAPER 7: CLS 
30389 BORDER 0: PAPER 6: CLS 


El circuito final 


Este juego fue adaptado de un programa del ZX80 (pista de carreras 
de 2K) que fue primeramente publicado por el Club Nacional de 
Usuarios del ZX de Gran Bretaña en la revista mensual INTERFACE. 
La versión original se debe a Alan Gunnell. 

Resulta fácil de jugar y, como termina dando una puntuación des- 
pués de cada carrera, constituye un reto para jugarlo repetidamente 
tratando de incrementar la puntuación. Hay tres pistas en las que se 
puede conducir con diversos grados de dificultad. 

A lo largo de la carrera se le solicita para que ponga el valor de 
aceleración y la velocidad que desee. Pronto conocerá el efecto que 
tiene esto. Su puntuación se presenta constantemente (linea 220) 
y al final se da la total. Sus estímulos (incluyendo líneas como la 
del “EL CONDUCTOR DE DETRAS LE ESTA GRITANDO QUE 
ACELERE PORQUE LE ENTORPECE”') se expresa en palabras en me- 
dio de la carrera. Observará que existe una gran tendencia a estre- 
llarse y que su vehículo se las arregla para evitar un gran número de 
accidentes. De interés particular es la línea 290, que ocupa el lugar 
de cinco instrucciones IF/THEN del tipo IF H = 5 THEN LET B$ = 
= “recta con grasa”, etc. 


S REM CIRCUITO FINAC 
O REM ADAPTADO DE _ UN PROGRAMA 
2 REM DEL Zx80 POR ALAN 
GUNNELL 
4 REM PUBLICADO PRIMERAMENTE 
6 REM EN INTERFACE 
3 REM 
LET AzsS: LET Gal: LET B=3 

2 BORDER 1: PAPER 7: INK Q 

25 INPUT q PISTA DESER (DE 
LA SALA SI? 

27 Tr OR U>5 THEN GO TO 25 


x=0 
40 A L=100+UxU 
5 LET 50 

64 Ml xX=10 THEN STOP 


so a rre 
398 IF 10 THEN PRINT_ INK 
6G;¡TAB 8; “CA CARRERPB_HA TERNIÑADO 


““TAB 4:"LA PUNTUACION ES 
De UN TOTAL DE 100>UzU: PÓKE. a 
3692, -1: BORDER, ADO, BEER -02, 
RANDE30: GO TO 

118 GO SUB aa 


213 


214 


112 FOR T=1 TO SO: BEEP .02,T: 


INT 
125 GO SUB 1 


145 FOR T=1 TO SO: BORDER RIND=*7 
: NEXT _ T: BORDER 
149 LET S=ABS (S+ (AFA) - (Br15)+1( 


150 PRINT *““” PAPER 2; INK 67" 
MARCHA "“;6;” VELOCIDAD *; 
160 GO 5US Hx10 


ga 
150 BORDER 1: INPUT _INK 7;"SELE 
E£cIONE UNA MARCHA IDE 1 A 103)”;G 
190 IF G«<1 OR G>10 THEN GO TO 1 


a8 
209 INPUT INK Táy RONGA LA ACELE 
RACION (DE 8 A 16) 

218 IF All OR As18 THEN GO TO 2 


ga: 
220 PRINT INK RND*43+1; “LA PUNTU 
ACION ACTUAL ES Es INK 2; 


9 , INK, 6, "RACCIO 
NE EL FRENO (DE Ahi ¡Bb 
550 IF B:0 OR B310 THEN Eo TO 2 


40 

268 RETURN 

270 a Ar dad 

290 Bj$u=(“REC CON GRASA” A 
ND A=5) + CURUA CERRAD A“ AND_H= 
41 + (“ESQUINA" AND H=3) >+("CURUA"” 
AND A AND Hz=1) 


S$0 7 E ALO THEN _LET A=1 
360 LET S=ABS (S+ (ARA) - (Bx15) + € 


*G)) 
370 IF S<10 THEN LET S5=10 
380 IF S:<1S THEN PRINT_ *”*”-?- 


K 2; “EL CONDUCTOR DE ATRAS LE“: 
BRIT * YNK 24;"ESTA GRITANDO QUE 
ds RETURN 


ETUR 
1009 IF 5,390 THEN _PRINT INK_2;“4 
A MUY RAPIDO... -REDUZCA!": LET Lz= 
L- 


5 
1010 RETURN 
29009 == S>40 THEN BEEP 3,50: FOR 


Q=2 20: BORDER RND*B: NEXT Q 
¿ PRINT INK 2; “CHOQUE” 
2010 1F 8>3 THEN PRINT_ INK 2,“CH 


OQUE": BEEP .5,20: BORDER RND=6: 
aiii 20: LET L=L-9+INT (RND=10 


2020 RETURN 


3000 IF S>25S THEN FOR R=1 TO 16: 

PRINT INK _RNDx6; "CHOQUE! 1111111 

11“: NEXT + LET L=L-10 

390108 RETUR 

49090 IF 3336 THEN PRINT INK 2;“>x 

ERRE NICHOQUER PESA IIENE DEIA T ES 
LET L=L-10 

¿018 RETURN 

3008 IF S5>)20 THEN PRINT INK 2; 

SeocHhHHHOODOOOOOQUULJUWEEEE 111911 

: LET L=L-2 

5085 FOR T=1 TO An PAPER RND=7: 


CLS : NEXT T: PAP 
solo IF B>3 rd PRINT “CHOQUES f 


pe; =L - 


e“ 


t5- 


1.7 LEY 
50205 RETURN 


El estallido 


En este juego, basado en uno escrito por Eric Thompson, se con- 
trola la acción del pequeño trineo con las teclas *'1” y “0”. La bola 
se hace con la *%o”” minúscula. 


2 POKE 23609,1009 
S REM ESTALLÍDO 
S REM BASADO EN UN PROGRAMA 


DEL_Zx51 
7 REM POR _ ERIC THOMPSON 
96 u en 
1S PAPER 6: CTLS : BORDER 2 
Ta 7 


39 PRINT AT L,8; INK RMD33; "¿AP 


50 L 
S5S LET S5=0 
60 LET 


100 FOR P=3 TO -8 STEP -i 

110 1F ABS B>18 THEN LET 8=18 
e 0d X=X3+(INKEYSH="0Q")3- (INKEY 

=* .. 

120 PRINT AT 9,X-2; INK 2,“ 

“¡AT P,B; INK 21“0" 

148 LET B1=8B 

1509 IF B=3 OR B=138 THEN LET Q=- 
QA: BEEP .005,30 
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160 LET B=B+0 
a X=X+(INKEYS$="49") - (INKEY 
= 

175 FOR G=1 TQ Z: NEXT 6 

180 PRINT AT P,B1;" ” 

198 NEXT P 

195, LET X=X+(INKEYS="0")-1INKEY 
= 
390 IF ASS (B-X)1>2 THEN GO TO 2 
205 LET 35=5+1 

210 PRINT AT 16,8; INK 1;“SsU PU 
NTUACION ES “; INK 2;S: BÉEEP .25 
228 GO TO sa 
238 FOR G=1 TO 4080: NEXT € 

ET S5=8 


0 15 
500 INPUT “GRADO DE DIFICULTALC 
(DEL 1 AL 2037 “;Z 
Po IF Z(1 OR Z324 THEN GO TO S 


520 LET Z=2*Z 


“GALXIAN” 


Este programa fue adaptado por Tim Hartnell de uno del ZX81 
escrito por James y Paul Holmes y se publicó primeramente en la 


revista DATABUS. 
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M IAN 
Sus 1600 SALSA. HARTNELL 


690 LET N=109 

20 LET Y=13 

108 LET C=2 

110 PRINT AT ¿3 .. 


120 IF INE Ys =ng% THEN LET X=X- 
150 IF INREYS="8" THEN LET X=X+ 


140 PRINT AT > X; INK 2;A% 
145 BEEP_ .004 
150 PRINT_ AT OP,)N;3" ” 
A ENDS +65 "THEN LET N=N+INT 
*3 

172 IF ÁND>. 8 THEN A P=P+1 
1902 PRINT AT_P,N;_INK 

200 IF P>i4 THEN GD o? 

210_IF Ene AND INKEYS="1" THEN 
LET C=X+ 

220 1F 6= O THEN 60 TO 110 

+09 PS A 3 

250 3" vta THEN_GO TO 990 

260 PRINT AT Y,C;"2": BEEP .0059 


"270 IF_C=N_AND Y=P THEN FOR WuwZ 
TO 3: PRINT AT A RND*OD; ” 


: BE : 
EEP .15,20: BORDER RND*7: BEER . 
30: NEXT W: GO TO 40 
1000 LET Ays=" de 
1905 FOR J=0 TO 7? 
READ 
16208 FOKE Y USR "A"+J,N 
1049 FOR Jo TO ? 
y REA 
210664 POKE USR "B"+J,N 
NEXT ul 
19080 FOR J=8 TO 7? 
REA 
1100 POKE USR "C"+*J,N 


11108 NEXT 

1120 FOR J=98 TO ? 

1130 READ N 

1140 POKE USR "M"+J,N 

1150 NEXT 

1188 POR J=0 TO 7 

1170 RE 

1188 POKÉ USR "“E"+J,N 

1190 NEXT Y 

2000 DATA BIN 11111110,BIN 11111 
100,BIN 11111080,BIN 11110001,B1 
y 21100081,BIN 10010081,BIN “671 
19000,BIN 10111100 

2010 DATA BIN B1111110,BIN 10111 
1901,BIN 110600011,BIN 010290010,B1 
Ñ 20020008,BIN 610620010,BIN 0011 
1100,BIN (6111109 
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APENDICES 


Sistema de memoria en mi- 
crodiscos ('“MICRODRIVE””) 


Este sistema miniatura de memoria en discos flexibles ('*micro- 
floppy'') alberga hasta 100K de programa o datos, pudiendo conec- 
tarse hasta ocho de ellos simultáneamente en el Spectrum. El ritmo 
de transferencia de información desde el sistema hasta el ordenador 
es de 16K por segundo y el tiempo total de exploración para todo el 
disco hasta encontrar un determinado punto es de siete segundos, 
aunque muchos tiempos de acceso serán inferiores a éste. Algunas 
instrucciones que no se han tratado en este libro tienen su aplicación 
enteramente en el “Microdrive”” y en el sistema de interfaz RS232. 


El interfaz RS232 


Este sistema permite que el Spectrum se conecte a cualquier 
periférico (como impresora, terminales, otros ordenadores, etc.) que 
sea compatible con él. El RS232 es un standard adoptado por la 
industria por lo que existe una amplia gama de aplicaciones para el 
Spectrum asociado a este interfaz. El sistema del interfaz se encuentra 
en el monitor del Spectrum. 


Otras instrucciones 


Los enunciados OPEN X, CLOSEX*, MOVE, ERASE, CAT y 
FORMAT se utilizan con el interfaz y con el “*Microdrive”. El **Microdri- 
ve” admite no sólo SAVE, VERIFY, LOAD Y MERGE sino también 
PRINT, LIST, INPUT e INKEYS. 

IN y OUT son instrucciones para accionar las entradas y salidas del 
ordenador y sirven para controlar u obtener información del teclado 
o de la impresora. 
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Conversión binaria a decimal 


Puede preferirse utilizar la numeración decimal a la binaria en las 
indicaciones de datos para los gráficos definidos por el usuario. En 
este caso será útil la lista que sigue. Por si le interesa, le indicamos 
que el programa utilizado para imprimir esta lista se da al final. 


o 110 
200002081 1 eB1ID1111 47 
coBo0oncil0o 2 0110901 438 
eoaceanil 3 vaelzicoai 4a 
392000100 d aB1i14010 So 
vesecesl1al s adr1e0n11 si 
adeecnilo 6 adll1s1oo s2 
'AAPAI1Ii 7 0110101 s3 
10900109009 3 00110118 Sd 
poda 9 ediles ss 
paQeidzla 10 42111000 s6 
vopbo1o11 11 Q0il1i1uQa1 s7 
adaBliaa 12 asr11010 sa 
aaacilal 13 agqi110a11 sa 
pracaulilz0a 14 voali11i1a0 509 
00001111 15 evd111101 61 
adalaaVa 16 esi111149 62 
90010001 17 111111 63 
2900190109 15 61090000 =51 
cepViaaza 19 ciaVanael 6sS 
agolazaa 29 aliada 66 
dguadIa101 21 1800011 67 
gecie110 22 v1aBaiaD 68 
20010111 23 Qi1IaBalal 69 
fgR011000 24 vipBodi10a 7a 
afalieal 25 giaca111i 71 
cecGiiazla 265 da1acl1iaan 72 
00011011 27 QIUCIVail 73 
apaliiag 28 1001010 74 
aQquiilal 29 1011 75 
ddBl1110 30 ea10081100 76 
20011111 31 io0o011ai 77? 
olBvaas 32 oi001110 78 
ad10Baal 33 Qaraqaria:a 7a 
20100010 34 GciB10000 su 
0080100011 35 vialnoB1 81 
ge01esc10os 36 1010010 82 
ainia 37 110011 83 
es10a118 38 aclioioiao 34 
esd10a1211 39 aioi0101 55 
p01010909 A) giazazzla 86 
aBi1c1eal 41 1010111 87 
edQ«—uilaloa 42 Ql1AQ110069 ss 
caa161011 43 qiB611001 59 
caalio11as dei aioii1i010 au 
etdza11061 4s 61011011 31 
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01190100 


ps 

[La] 
4099 
Ohh 
Dg 
[TT 


989009900090099900098980009580899 
Pra pa pu pus Ja jes je Jus ju Js Ja a Joa Jud jo pu Jas fs Jus fu Ja Ju Jus Ls fra ps js 
W 
na 


fra jus Jas jad Ja js pd Jos Ju Jus Ja os jua jul Jo pus os Js Jud Jus JA Ls Jus Js ja js 
fra pa fa Ja fas Jos jes Jas Jos Js Js hs js jr OSADO 


as pa ja OSO AAA 
RaoggrpPoOAROO 
ROPOADHOROARO 


¡0B1aiia 


JA Jud La fa Jud ps Ju fs Js 
AAAAAAAARA 
DOY DN e 0 y hs 


10010111 


10100010 
10100011 


18109100 


S008r 


5900090009509 000000009098 
ROPERO 


JAS Jah Jud Je Ju Jud (2D us pus ul fu Ju fu o Je Ju Ju Ju Ja ud ud Ju jul jus jus Jal Ju Jud Js ud Jul Js ps ud Ja Ja 
$3 JO A A pe Ju ps pas $ Jo Jo Ja Jus pad fut fas Jud Ja Ju 
GORROS e pa ps 
DOPPSOARAPDOPEROOPrROR Ab 
POPOPOPROPRPOPOROPOrPOPOPROPROPRDRD 


Jos fa Jo Ju fu Ju Ju jj Jo Jas ju ju a ju as js (ES) 
95090000000058099809 


HO AO AAA ASADO ADADADAD A 


Aa lo lololololololola lalala La ala Ea) 
SABIA narran e 
Arianna 
St a a ala la LL La La E] 
O La das Ds Loa La La La Los La dos Los La La La La La Los E] 


SANNENONOADAN OINONDAS ANY 
AirinidirnrRrdinARANS VUUNAUNUNA NN 
ANUAUSAUSANSSNOSOS UNS 


00800600 O orirraricrnre 
ieiriciricrrdeAnadAnn Airrrrrrenee 
ala lada la lada la Da Daba DADA DADO DA, 


Afe"i 53 


(3/2) 12 


10 FOR BA TO 255 
IF T=9 THEN LET Af="09"+>+ 
70 1F T<>0 THEN LET 
80 LET uWRe=INT (1/2) 
390 NEXT_N 


50 
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Mensajes codificados 


Estos mensajes aparecen en el fondo de la pantalla siempre que 
se detiene el ordenador durante la ejecución de un programa en 
BASIC. Explican el porqué de la detención tanto si es por causa 
natural o debido a un error. 

La instrucción de Continuar (CONTINUE) remite el programa a la 
línea e instrucción especificada en el último mensaje, aunque hay 
excepciones con relación a los códigos 0, 9 y D. 


Significación de los códigos 


0) OK (Todo correcto). 
Terminación correcta o salto a un número de línea superior a 
cualquiera de los existentes. 


1 Existe una instrucción NEXT sin la FOR con ella relacionada. 

2 Variable no encontrada. Un subíndice. 

3 Indice equivocado. El superior a las dimensiones del conjunto 
o hay un número equivocado de subíndices. 

4 Falta memoria. 

5 Fuera de la pantalla. 
INPUT ha tratado de generar más de 23 líneas en la mitad inferior 
de la pantalla. Ocurre lo mismo con PRINT AT 22, ... 

6 Número demasiado grande. 
Los cálculos han conducido a una cantidad superior a 10%. 

7 Hay una instrucción RETURN sin existir el GOSUB con el que 
ha de estar relacionada. 

8 Fin de archivo. De aplicación en las operaciones con Microdrive, 
interfaz, etc. 

9 PARO. 

A Argumento no válido. 

B Entero fuera de rango. 

C Sin sentido en BASIC 

D PARO. CONT repite la instrucción donde se paró el programa. 


El comportamiento de CONTINUE después de este mensaje es 
normal en cuanto repite la instrucción donde se produjo el 
“BREAK”. 
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Faltan datos. 

Nombre de archivo no válido. 

No hay espacio para la línea. 

Paro en la Entrada. 

FOR sin el correspondiente NEXT. 

Sistema ENTRADA/SALIDA no válido, en operaciones con peri- 
féricos: Microdrive, etc. 

Color no válido. 

Corte del programa. 

Se ha pulsado el comando BREAK. Esto se detecta entre dos 
instrucciones. 

Dirección más alta de la memoria RAM errónea. El número 
especificado por RAMTOP es demasiado grande o demasiado 
pequeño. 

Enunciado perdido. 

Salto a una instrucción que ya no existe. 

Flujo de datos o información no válidos en operaciones con peri- 
féricos: Microdrive, etc. 

Función sin el prefijo DEF (Definición). 

Error en el parámetro. 

Número erróneo de argumentos, o uno de ellos de tipo equi- 
vocado (cadena alfanumérica en lugar de variable numérica o 
viceversa). 

Error de carga de la cinta magnética. 


OBRAS 
DE EDICIONES 
TECNICAS REDE 


ACUSTICA Y BAJA FRECUENCIA 


ALTA FIDELIDAD A BAJO COSTE (Libro n.* 87) 
212 págs., 117 figs. Redacción REDE. 


AUDIO REPARACION (Libro n.* 126) 
170 págs., 187 figs. Autor: F. Mor. 


COMUNICACION INSTANTANEA (Libro n.? 109) 
114 págs., 54 figs. Redacción REDE. 


CONSTRUCCION PRACTICA Y SIMPLIFICADA DE 
CAJAS ACUSTICAS PARA HI-Fl (Libro n.? 138) 
122 págs., 79 figs. Redacción REDE. 


INICIACION AL DISEÑO DE CIRCUITOS DE AUDIO 
(Libro n.* 148) 
108 págs., 42 figuras. Redacción REDE. 


MAGNETOFONOS Y CASSETTES (Libro n.* 151) 
168 págs., 75 figuras. Redacción REDE. 


MUSICA ELECTRONICA (Libro n.” 83) 
150 págs., 70 figs. Redacción REDE. 


CIRCUITOS COMPROBADOS 


Un tipo de libro sin precedentes. Cada montaje, antes 
de ser descrito, ha sido realizado y mantenido en óptimo fun- 
cionamiento en el Laboratorio de Experimentación de REDE. 
Tamaño de cada volumen: 210 x 270 mm. 


AUDIO-1 (Libro n.* 111) 
84 págs., 100 figs. Redacción REDE. 


MONTAJES PRACTICOS (Libro n.* 115) 
84 págs., 121 figs. Redacción REDE. 


PRACTICA DIGITAL (Libro n.* 118) 
80 págs., 134 figs. Redacción REDE. 


CIRCUITOS INTEGRADOS (Libro n.* 128) 
84 págs. 120 figs. Redacción REDE. 


AUDIO-2 (Libro n.* 131) 
88 págs., 100 figs. Redacción REDE. 


JUEGOS ELECTRONICOS. (Libro n.* 132) 
80 págs. 100 figs. Redacción REDE. 


ANTI-ROBO (Libro n.* 135) 
76 págs., 114 figs. Redacción REDE. 


JUEGOS ELECTRÓNICOS. (Libro n.* 141) 
80 págs., 96 figs. Redacción REDE. 


AUDIO-3 (Libro n.” 143) 
82 págs., 116 figs. Redacción REDE. 


TELEMANDO (Libro n.* 146) 
80 págs. 112 figs. Redacción REDE. 


COMPROBADORES (Libro n.* 152) 
84 págs. 100 figuras. Redacción REDE. 


AUDIO4A (Libro n.* 154) | 
80 págs., 100 figs. Redacción REDE. 


ELECTRONICA EN EL AUTOMOVIL (Libro n.* 158) 
84 pág., 96 figs. Redacción REDE. 


LUCES SICODELICAS Y JUEGOS LUMINOSOS 
(Libro n.* 160) 
82 págs., 100 figs. Redacción REDE. 


COMPONENTES ELECTRONICOS 


EL TIRISTOR: APLICACIONES, 
CARACTERISTICAS Y FUNCIONAMIENTO 
(Libro n.* 73) 

104 págs., 50 figs. Autor: R. Swoboda. 


LA FIABILIDAD DE LOS COMPONENTES 
ELECTRONICOS (Libro n.* 70) 
162 págs., 28 figs., 31 tablas. Autor: C. E. Jowet. 


ELECTRICIDAD Y MEDICION 


INSTALACIONES ELECTRICAS DE BAJA TENSION 
(Libro n.* 64) 
136 págs. Autores: A. Bandini y M. Bertolini. 


LUMINOTECNIA (Libro n.?* 58) 
177 págs., 87 figs., 46 tablas. Autor: G. Clerici. 


MANTENIMIENTO DE EQUIPOS ELECTRICOS 
(Libro n.* 14) 
111 págs., 82 figs., 20 tablas. Autor: P. L. Cerato. 


MEDIDAS ELECTRICAS (1/1): 
METODOS E INSTRUMENTOS (Libro n.* 57) 
328 págs., 194 figs. 50 tablas. Autor: A. Bandini. 


MEDICION ELECTRICA (1/11): 
METODOS E INSTRUMENTOS (Libro n.* 62) 
288 págs., 153 figs. 42 tablas. Autor: A. Bandini. 


MEDICION ELECTRICA (11): 
ENSAYOS DE MAQUINAS (Libro n.* 59) 
400 págs., 120 figs. Autores: A. Bandini y M. Bertolini. 


METODOS DE MEDIDA EN CIRCUITOS DE CORRIENTE 
CONTINUA (Libro n.* 54) 
139 págs., 90 figs. Autor: A. Bossi. 


SEÑALIZACIONES ELECTRICAS 
(Libro n.? 32) 226 págs., 132 figs. Autor: G. Clerici. 


ESQUEMARIOS 


Cada volumen constituye un elemento insustituible tanto 
para el reparador de TV b/n y color como para los especializa- 
dos en magnetófonos y cassettes, incluyendo esquemas y 
notas de servicio. 


TV Blanco y negro 


ESQUEMARIO TV/I (libro n.* 21) 
ESQUEMARIO TV/!II (libro n.* 22) 
ESQUEMARIO TV/1II (libro n.* 55) 
ESQUEMARIO TV/IV (libro n.* 67) 
ESQUEMARIO TV/V (libro n.* 76) 
ESQUEMARIO TV/VI (libro n.* 81) 
ESQUEMARIO TV/VII (libro n.” 88) 
ESQUEMARIO TV/VIH. : (libro n.* 94) 
ESQUEMARIO TV/IX (libro n.* 100) 
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ESQUEMARIO TV/XI (libro n.* 113) 
ESQUEMARIO TV/XII (libro n.? 127) 
ESQUEMARIO TV/X1II (libro n.? 140) 
ESQUEMARIO TV/XIV (libro n.* 155) 


TV Color 


ESQUEMARIO TVC/I (libro n.* 112) 
ESQUEMARIO TVC/!! (libro n.* 114) 
ESQUEMARIO TVC/1!I (libro n.* 116) 
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ESQUEMARIO TVC/VII (libro n.* 134) 
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ESQUEMARIO Il (libro n.* 103) ESQUEMARIO VI (libro n.? 139) 
ESQUEMARIO Ill (libro n.* 123) ESQUEMARIO VII. (libro n.” 144) 
ESQUEMARIO IV (libro n.* 130) ESQUEMARIO VIII (libro n.*? 159) 


LIBROS-HERRAMIENTA 


Obras destinadas al reparador de.TV, radio, auto-radio, elec- 
trodomésticos, magnetófonos, etc., al montador y al experi- 
mentador. 


ALARMA ELECTRONICA (libro n.* 102) 
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AUTOMATISMOS DE FACIL CONSTRUCCION 
(Libro n.* 107) 
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PRACTICA ELECTRONICA SIMPLIFICADA 
Y EXPERIMENTAL: CON 2 TRANSISTORES, 
MULTIPLES MONTAJES COMPROBADOS 
(Libro n.* 124) 

140 págs. 67 figs. Redacción REDE. 


PRACTICA ELECTRONICA SIMPLIFICADA 
Y EXPERIMENTAL: CON 3 TRANSISTORES, 
MULTIPLES MONTAJES COMPROBADOS 
(Libro n.* 125) 

132 págs. 64 figs. Redacción REDE. 


RECUPERACIÓN DE COMPONENTES ELECTRONICOS 
(Libro n.* 156) 
166 págs., 91 figs. Redacción REDE. 


REPARACION DE ELECTRODOMESTICOS 
(Libro n.* 40) 
265 págs., 167 figs. Autor: E. Tricomi. 


SOLDADURA ELECTRICA EN LOS MONTAJES 
ELECTRONICOS (Libro n.* 147) 
104 págs., 69 figs. Autor: F. Mor. 


SEGURIDAD ELECTRONICA (Libro n.* 108) 
120 págs. 60 figs. Redacción rede. 


UHF, TECNICA/ADAPTACION/REPARACION 
(Libro n.* 33) 
335 págs. 302 figs. Autor: F. Móhring. 


TELEVISION 


PRACTICA DE LA CONSTRUCCION E INSTALACION 
DE ANTENAS DE FM Y DE TV (Libro n.* 92) 
272 págs. 222 figs. Redacción REDE. 


REPARACION TV-I (Libro n.* 77) 
300 págs. 472 figs. Autor: F. Mor. 


REPARACION TV-1I (Libro n.* 110) 
304 págs. 470 figs. Autor: F. Mor. 


REPARACION TVC (Libro n.? 153) 
140 págs. Ilustraciones a todo color. Redacción REDE. 


TELEVISION COLOR BASICA (Libro n.* 166) 
170 págs., 80 figs. Ilustraciones a todo color. 
Autor: B. Miguel. 


VARIOS 


CONTROL NUMERICO DE LAS MAQUINAS 
HERRAMIENTAS (Libro n.* 86) 
90 págs., 64 figs. Autor: M. Flego. 


DIBUJO INDUSTRIAL (Libro n.* 35) 
260 págs., 158 figs., 56 tablas. €. Clerici. 


DIBUJO TECNICO (Libro n.* 15) 
154 págs., 82 figs., 20 tablas. C. Clerici. 


Solicite el catálogo a 
EDICIONES TECNICAS REDE 
Apartado 35400 - Barcelona 


FE DE ERRATAS 


LA MEJOR PROGRAMACIÓN DEL ZX SPECTRUM 
POR LA PRÁCTICA 
ERRATAS Y ACLARACIONES 
Pág. 17. —En el programa «Tabulador lanzamiento de cohetes», 


la línea 20, por defecto de impresión, puede parecer que 
indique: 


20 DIM A$s(5,6) 
en realidad, su lectura correcta es: 


20 DIM AF$(56,6) 


Pág. 19. —En el párrafo central de la página, situado encima del 
título «Conservación de programas», en la línea quinta, se 
dice: 

utiliza un número aleatorio de veces determinado por 9 
ha de decir: 
utiliza un número aleatorio de veces determinado por q 


Pág. 104. — En el segundo programa — REM CONJUNTOS MUL- 
TIDIMENSIONALES — la línea 120 se presenta así: 


120 PRINT e 13; TAB 15;A1(B,1 
$3 "¡RAIB,2); A. Di" *¡Alá, 
ha de presentarse e 


120 Saa TAB 13;B,TAB 15;A(B,1 
EOS PE 2 BN “5A(B,39) ¿” hs ¡PIB,s) 


Pág. 105. —En el primer párrafo, la penúltima línea empieza así: 
en el número 2 
Ha de empezar así: 
en el número 5 
La última línea del mismo párrafo acaba así: 
es igual a 2 
Ha de acabar así: 
es igual a 5 
Pág. 117.—En la última línea sé dice: 
Pruebe a aplicar VAL a una expresión como "ATN 1 x 4” 


Ha de decir: 
Pruebe a aplicar VAL a una expresión como "ATN 1 x 4” 


Pág. 147. —En el segundo párrafo se dice: 
Una ventaja es que la M 
ha de decir: 
Una desventaja es que la M 
Pág. 172. —En el listado incluido en esta página, la línea 265 se 
presenta así: 


265 PRINT "ENTRAR LOS DATOS DES 
PUES DE PULSAR NEUL INE” 


Ha de presentarse así: 


265 PRINT "ENTRAR LOS DATOS PUL 
SANDO_ ENTER” 


